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1. Purpose 

This volume contains the specification, structured flow 
charts, and code listing for the protocol. 


2. Introduction 

The purpose of an autonomous power system on a spacecraft is 
to relieve humans (on the ground or in the craft) from having to 
continuously monitor and control the generation, storage and 
distribution of power in the craft. This implies that 
algorithms will have been developed to monitor and control the 
power system. The power system will contain computers on which 
the algorithms run. Studies, [1],[2 ], indicate that these 
computers should be physically close to the hardware they monitor 
and/or control. The studies also indicate that there should be 
one central computer system that makes the high level decisions 
and sends commands to and receives data from the other 
distributed computers. This will require a communications 
network and an efficient protocol by which the computers will 
communicate. 

One of the major requirements on the protocol is that it be 
"real time" because of the need to control the power elements. 
This implies a simple protocol, short messages, and as much of 
the protocol implemented in dedicated hardware as possible. 

The objective of this introduction is to present in a 
logical fashion the considerations that led to the design and 
development of a network protocol that is being implemented on 
the Autonomously Managed Power System, AMPS breadboard at 
NASA/MSFC . The AMPS breadboard is being used to develop and test 
higher level control and expert system programs being developed 
for power system management [3] . 


3. Power System Description 

The power system for a spacecraft will consists of one or 
more of each of three functional elements. The power generation 
center, PGC, (e.g., solar arrays) generates the electrical power 
for the spacecraft. The power storage center, PSC, (e.g., banks 
of batteries) stores energy until needed. Load centers, LC, 
switch the power from the distribution busses to the loads. 

An autonomous power system can be thought of as system in 
which the monitoring and control hardware are distributed to each 
functional element and are connected by a network. The power 
control center, PCC, is the central computer (s) on which the 
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high level programs run. Each PGC, PSC, and LC will contain the 
hardware and software to monitor (and maybe control) the 
voltages, currents, and temperatures in the center and monitor 
and control the settings of the switches that connect the center 
to the power bus . 

The AMPS test facility currently features the following. 

1. A programmable solar array simulator which supplies 220 + /- 20 
VDC directly to three power channels with a maximum power output 
of 75 kW. 

2. An energy storage simulator which consists of a battery with 
168 commercial nickel-cadmium (Ni-Cd) cells serially connected to 
provide a nominal DC voltage of 220 volts and a capacity of 189 
ampere-hours . 

3. A load simulator which consists of nine resistive loads and 
one dynamic load that dissipate a total of 24 kW of power when 
operated at 200 VDC. 

In addition, three Motorola 68000 microcomputer based 
controllers provide data retrieval and low-level decision-making 
for the power system with a NCR Tower based host computer 
providing overall power system management and programmability for 
flight power system simulation. 


4. Protocol Requirements 

This section will present the list of protocol requirements 
that were derived from the physical layout of the power system 
and the monitoring and control requirements of the overall power 
management system. The objective in developing this protocol was 
to make the protocol as simple as possible and still satisfy the 
requirements of the power system. 

The following is a list of the assumptions made that 
simplified the protocol. 

1. The bus topology will be used. Therefore, there is no need 
for routing information, all stations are on the same line. 

2. Once the network is initialized there will not be a need to 
open and close sessions, i.e., all the stations stay on the line 
all the time. 

3. All the messages will be short, on the order of 4 to 200 bytes 
(our analysis, [1], and [2] support this). 

4. Because the physical length of the network will be short, 
i.e., it will be totally confined to be within the space craft, 
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the protocol will not need to be as robust as some of the more 
common protocols. 

The following is a list of the requirements of the protocol. 

1. Since the power system must be controllable in real time/ the 
protocol must be capable of processing (from the transmitting 
application to the receiving application) messages in times on 
the order of 10 ms to 100 ms. (In [2] a study was performed that 
indicates for a power system to have a reaction time of 0.1 
seconds a communication bit rate of on the order of 10° is 
needed. ) 

2. The protocol must be able to initialize or re-initialize 
itself . 

3. The protocol must be able to add or remove stations at will. 

4. Since the functional elements are physically dispersed, the 
protocol must have the capacity to uniquely address an arbitrary 
number of stations. 

5. Since this is a control system the protocol must insure that 
each message is delivered to the application in the order sent. 

Given these requirements the question arises "Is it possible 
to use a defined protocol such as TCP/IP [4] or DDCMP [5]?" 
There are two disadvantages to using TCP/IP: 1) the amount of 
computer time needed to process each message and 2) the number of 
over head bytes in each message (minimum of 40) . The major draw 
back of TCP/IP is, of course, the amount of computer time 
required. For this reason TCP/IP was rejected. Since the power 
system environment is more constrained then the environment for 
which DDCMP was designed, the protocol did not need all the 
capabilities of the message exchange section of DDCMP. 

The protocol developed is on the level of DDCMP. Although 
not a requirement, the protocol assumes that it is working on top 
of Ethernet hardware such as the ENP-30 card [6], [7] . This card 
performs two of the three functions of DDCMP: framing and link 

management (as does most network hardware) . Some of but not all 
of the message exchange features were incorporated. The ability 
to use logical station addresses was added. 


5. Protocol Description 

This section will give an over view of the protocol. For a 
detailed description of the protocol see the specification in 
Appendix A. The following is a list of the main attributes of 
the protocol. 
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1. The PCC initializes the network and establishes a session with 
each other element on the power system network. 

2. The network is self-initializing and can re-synchronize 
itself. 

3. Every packet is numbered. 

4. Messages will be passed to the application program in the 
correct order. 

5. Every message is acknowledged. 

6. There is a sliding acknowledgement window. 

7. Messages are capable of being pipelined, i.e., messages can be 
accepted before previous acknowledgements reach the sender. 

8. There is a re-transmission of messages that have not been 
acknowledged within the time out period. 

9. There is a mapping between logical power system elements' 
names and physical Ethernet addresses. 

The computer system in each power system element is doing 
two distinct operations: processing communication messages and 

performing its specific monitor and/or control functions. The 
present breadboard uses a simple scheme of two CPUs running in 
parallel. One runs the protocol; the other runs the application 
program. The two computers communicate through shared memory. 
This is faster and simpler than one CPU with a complex operating 
system that supports multi-processing. 

The protocol is designed to be the interface between 
application programs and the Ethernet hardware. The application 
programs generate messages that are to be sent to other stations. 
They pass these messages to the protocol. The Ethernet hardware 
does the actual transmitting and receiving of messages over the 
physical wire. To transmit a message the Ethernet hardware is 
given the packet to be sent . The hardware sends the packet over 
the cable and is responsible for assuring that the message is 
transmitted correctly, i.e., it will retransmit the packet if it 
detects a collision. When the Ethernet hardware receives a 
packet, it checks the unique station address and cyclic 
redundancy code, CRC, and only accepts packets which are 

addressed to the station and in which no errors have been 
detected. 

The philosophy of the implementation of the protocol is: 
messages are never moved around; only pointers to the messages 
are moved. This resulted in an implementation based on stacks 
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and queues and results in the ability of the protocol to quickly 
process messages. 

On a very high level the protocol can be viewed as follows. 
For the receive function: the Ethernet hardware stores a 
received message in the shared memory of both processors and 
passes a pointer to the message to the protocol; the protocol 
passes the pointer to the message to the application program. 
For the transmit function: the application program creates a 
message in shared memory and passes a pointer to the message to 
the protocol which in turn passes the pointer to the Ethernet 
hardware which transmits the message. 

The protocol first initializes the network then moves round 
robin between three states: transmit state, receive state, and 
time out state. The protocol in the PCC initializes the network 
by sending a packet, in broadcast mode, requesting all other 
stations to identify themselves. Each station sends back its 
logical name and Ethernet address. Then in each station the 
protocol will enter the transmit state and check if there is a 
message to send. If so the message will be sent. If not the 
protocol will enter the receive state and check if there are 
messages to be moved to the application program. If so, the 
messages are moved. If not, the protocol will enter the time out 
state. If a time out has occurred, unacknowledged messages are 
sent again and the timer is reset. Then the protocol enters the 
transmit state, etc. 

When the application has a message ready to be transmitted, 
it sets the Go-Flag. When the protocol enters the transmit 
state, the protocol tests the Go-Flag and when set makes a packet 
out of the message. The protocol resets the Go-Flag which 
indicates to the application that the message has been sent. The 
protocol combines the pointer to the message with a unique packet 
number and other data needed by the Ethernet hardware to make a 
packet. The protocol then passes a pointer to the packet to the 
Ethernet hardware. The hardware transmits the packet (but does 
not remove the packet from memory) and places the pointer to the 
packet on the wait for acknowledgement stack, WFASk . 

As packets are received by the Ethernet hardware they are 
placed in shared memory and a pointer to the packet is placed on 
the receive control block stack, RCBSk. The protocol monitors 
the RCBSk and processes any packets found in the queue. The 
packets can be either an acknowledgement or a message. If the 
packet is an acknowledgement, the WFASk is checked for 
corresponding message packet (s). (There is a sliding 
acknowledgement window on packet numbers, so more than one packet 
can be acknowledged with only one acknowledgement packet.) All 
message packets in the WFASk queue that have been acknowledged 
are deleted from the WFASk and memory. If the packet is a 
message packet, the unique packet number is checked against the 
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expected number for the packet. If the numbers are the same the 
packet is broken apart and the pointer to the message is placed 
on the command buffer stack, CBSk. If the numbers are not the 
same, the pointer is placed back at the end of the RCBSk queue. 
(A packet has been received before its predecessor has been 
correctly received.) Every message packet is acknowledged. The 
protocol creates a acknowledgement packet which is transmitted by 
the hardware. (Acknowledgement packets are automatically removed 
from the WFASk . ) The application program monitors the CBSk. 
When it detects messages in the CBSk queue, it processes the 
messages in the order in which the messages are on the CBSk. 
(This insures that messages are processed in the order sent by 
the other station.) 

The time-out function re-transmits any packets that are on 
the WFASk when a time out occurs. If the packet is not 
acknowledged within the time out period, the packet's pointer is 
taken off the WFASk and passed to the hardware to re-transmit 
the packet. The Ethernet hardware puts the pointer back on the 
WFASk. When the packet is acknowledged, its pointer is deleted 
from the WFASk and the message memory freed. 

6. References 

[1] TRW, "Space Power Distribution System Technology, Final 
Report," Vol. 2, 1983, TRW Report No. 34579-6001-UT-00 . 

[2] Martin Marietta Aerospace, "Space Station Automation of 
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Report," 1989, MCR-89-516. 

[3] Weeks, D.J., "Expert Systems in Space," IEEE Potentials, Vol. 
6, No. 2, 1987. 

[4] Tanenbaum, A. S., Computer Networks , Prentice Hall, 1988. 

[5] DEC, "Digital Data Communications Message Protocol, DDCMP , " 
(Specification), March 1, 1978, AA-D599A-TC. 

[6] Communication Machinery Corporation, "Ethernet Node 

Processor, ENP-30 Users Guide," 1985. 

[7] Communication Machinery Corporation, "Ethernet Node 

Processor, K-l Kernel Software User's Guide," 1985. 


10 


Appendix A Protocol Specification 
7. Protocol Definitions 

Buffer is an array of storage in which node address, status, 
command names, and data are stored. 

Control block is an array of storage which contains control 
information to/ from the Kernel and an address of a buffer. 

Command is a message to level 7 of the network. In this 
system a command is generated and interpreted by the system 
software. 

Queue is a type of stack in which the bottom item is the 
next item accessed, i.e., a circular stack in which items are put 
in one end and taken out the other. 

Function is the software that generates and interpret 
commands . 

Node is a sender/ receiver on the network. 

LIFO is a type of stack in which the top item is the next 
item accessed, i.e., a push down stack. 

Packet is a message to level 3 of the network. In this 
system a packet is interpreted by the protocol software. Packets 
usually contain commands. But there are packets that are used 
only by the protocol software and never seen by the system 
software, e.g., an acknowledgement packet. A packet consists of 
a control block and a buffer. 

Stack is an array of storage with associated pointer to 
indicate the start of the stack, the end of the stack, and where 
to access data in the stack. 

Station consists of a node and the computer and other 
hardware that interface and control the power hardware. 

The following is a list of the abbreviations and their 
definitions. 


general 

NM, network manager 

LCC , load center controller 

PSC, power source controller 

RPC, remote power controller 

EPSC, electrical power system controller 
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addresses 


DNAd, destination node address 
RBAd, receive buffer address 
SBAd, send buffer address 
SNAd, sending node address 


arrays — these arrays store the present status 
values for the system 

BVAr , battery voltage array 
LCDTAr, LC diode temperature array 
LCPAr , LC power array 
PSPAr, PS power array 
PSTAr, PS temperature array 
SDAr, switch data array 


array pointers — points to the start of the 

corresponding array 

BVAPt, battery voltage array pointer 
LCDTAPt , LC diode temperature array pointer 
LCPAPt , LC power array pointer 
PSPAPt, PS power array pointer 
PSTAPt, PS temperature array pointer 
SDAPt, switch data array pointer 


blocks — 


ICBk, initialization command block 
IRBk, initialization response block 
RCBk, receive control block 

A RCBk is used by the Kernel to pass the information about a 
received packet. The RCBk contains the address of the 
buffer in which the Kernel placed the data of the packet. 
There will be RCBCn (receive control block constant) number 
of RCBks that physically reside in the RAM on the ENP-30 
card. Table 4 shows the definition of the fields in a 
RCBk. 

SCBk, status control block 
TCBk, transmit control block 

A TCBk contains the information needed for the Kernel to 
form and transmit a packet. A TCBk contains the address of 
the buffer containing the data to be transmitted. There 
will be TCBCn (transmit control block constant) number of 
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TCBks that physically reside in the RAM on the ENP-30 card. 
The location of the fields in the TCBk is shown in Table 3 . 

TOCBk, time out control block 

A TOCBk contains the information needed for the timer 
portion of the Kernel. The location of the fields in the 
TOCBk are shown in Table 5. 


constants 


ALCn 

ANACn, 

BCn, 

BLCn, 

CBSCn, 

HLCn, 

ITCBSCn, 


RCBCn , 
RCBSCn , 


SNCn, 

TCBCn , 
TOCn, 

WFASCn , 


address length constant — number of bytes in an 
address (2) 

active node address constant — size of ANASk (16) 
buffer constant — number of buffers (32) 
buffer length constant — number of bytes in a buffers 
(256) 

command buffer stack constant — number of addresses 

locations in the command buffer stack (4) 

header length constant — number of bytes in the header 

(16) 

idle transmit control block stack constant — number of 
address locations on the idle transmit control block 
stack (20) 

receive control block constant — number of RCBks (16) 
receive control block stack constant — number of 
address locations on the receive control block stack 
( 2 °) 

station name — the unique name of the station, i.e., 
LCC1 , EPSC , etc. 

transmit control block constant — number of TCBks (16) 
timeout constant — number of 2 ms. increments of time 
between timeouts (2) 

wait for acknowledgement stack constant — number of 
address locations in the wait for acknowledgement stack 
( 20 ) 


fields 


AkFd, acknowledgement field 

ANAFd, active node address field 

ANNFd, active node name field 

ANRPNFd, active node receive packet field 

ANTPNFd , active node transmit packet field 

BAFd, buffer address field 

CNFd, command name field 

DAFd, destination address field 

ICBESAFd, initialization command block Ethernet station address 
field 

ICBLAFFd, initialization command block logical address filter 
field 

ICBMFd, initialization command block mode field 
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ICBNRDFd, initialization command block number receive descriptor 
field 

ICBNTDFd, initialization command block number transmit descriptor 
field 

ICBRIHAFd , initialization command block receive interrupt handler 
address field 

ICBTIHAFd , initialization command block transmit interrupt 
handler address field 

IRBESAFd, Initialization response block Ethernet station address 
field 

IRBSRAFd, Initialization response block status routine address 
field 

IRBRRAFd, Initialization response block receive routine address 
field 

IRBTRAFd, Initialization response block transmit routine address 
field 

IRBTORAFd, Initialization response block timer routine address 
field 

DLFd, data length field 

PNFd, packet number field 

RAFd, receive address field 

RBAFd , receive buffer address field 

RBLFd, receive buffer length field 

RBSFd, receive buffer status field 

SFd, select field 

SAFd, source address field 

SCBFCFd, status control block function code field 
SCBRFd, status control block return field 

SCBSBAFd, status control block statistics block address field 

SNFd, station name field 

TBAFd, transmit buffer address field 

TBLFd , transmit buffer length field 

TSFd, time stamp field 

TOFd, timeout field 

TOECFd , timeout event count field 

TOSAFd, timeout subroutine address field 


flags 

PRFg, protocol ready flag 
RTFg, retransmit flag 
SBFg, send buffer flag 


Numbers — constants 

ANANo, active node address number 
CNo, command number 
RBNo, receive buffer numbers 
RPNo, receive packet number 
TBNo, transmit buffer number 
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TPNo, transmit packet number 



ANOs, active node offset (9 bytes) 

ANAFOs, active node address field offset (0 bytes) 

ANNFOs, active node name field offset (6 bytes) 


ANTPNFOs , 

active 

bytes) 

node 

transmit 

packet 

number 

field 

offset 

(V 

ANRPNFOs , 

active 

node 

receive 

packet 

number 

field 

offset 

(8 


bytes) 

DAFOs, destination address field offset (0 bytes) 

SAFOs, source address field offset (6 bytes) 

AkFOs, acknowledgement field offset (12 bytes) 

SNFOs, station name field offset (13 bytes) 

PNFOs, packet number field offset (14 bytes) 

DLFOs, data length field offset (16 bytes) 

CNFOs, command name field offset (18 bytes) 

SFOs , select field offset (20 bytes) 

DOs, data offset (22 bytes) 

RBAFOs, receive buffer address field offset (8 bytes) 
RBLFOs, receive buffer length field offset (6 bytes) 

RBSFOs, receive buffer status field offset (4 bytes) 

RMLFOs, receive message length field offset (12 bytes) 
RTFOs, retransmit flag offset (6 bytes) 

TBAFOs, transmit buffer address field offset (8 bytes) 
TBLFOs , transmit buffer length field offset (6 bytes) 
TOSAFOs, time out subroutine address field offset (8 bytes) 
TOECFOs, time out event code field offset (12 bytes) 


stacks and queues 


ANASk, active nodes address stack — LIFO (ANACn * ANOs bytes) 
The ANASk will contain information on the nodes that are 
communicating with this node. The ANASk will contain four 
fields for each active node: active node address field, 
ANAFd, active node name field, ANNFd, active node transmit 
packet number field, ANTPNFd, and active node receive packet 
number field, ANRPNFd. This list will be ANACn nodes deep. 
The ANAFd contains the 6 byte address of a node to which 
this node is communicating. The ANNFd contains the unique 
name (number) of the active node, see table 2. The ANTPNFd 
will contain the transmit packet number, TPNo, for the 
number of the next packet to be transmitted. The ANRPNFd 
will contain the receive packet number, RPNo, for the number 
of the next packet to be received from the address. [The 
TPNo will be inserted into the buffer before the packet is 
transmitted. The RPNo will be compared to each packet from 
the address. If the packet number is not the same as the 
RPNo, the command will be ignored. The packet will be 
acknowledged. ] 
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ANAFd 
(6 bytes) 

ANNFd 
(1 byte) 

ANTPNFd 
(1 byte) 

ANRPNFd 
(1 byte) 

active node 

6 byte address 

unique name 

variable 

variable 

active node 

6 byte address 

unique name 

variable 

variable 

0 0 0 





active node 

6 byte address 

unique name 

variable 

variable 


CBSk, command buffer stack — queue (ALCn * CBSCn bytes) 

The CBSk contains the addresses of the buffers which contain 
the commands that are waiting to be processed. The commands 
are processed in a first in - first out fashion. The CBSOt 
points to the next buffer to be processed. The CBSIn points 
to the where the next buffer address will be stored. 

ITCBSk, idle transmit control block stack — LIFO (ALCn * 
ITCBSCn bytes) 

The ITCBSk contains the addresses of TCBks that are not in 
use. When a TCBk is needed it is popped off this stack. 

IBSk, idle buffer stack — LIFO (ALCn * BCn bytes) 

The IBSk contains the addresses of the buffers not in use. 
There will be BCn (buffer constant) of buffers. Each 
buffer will be BLCn (buffer length constant) bytes long. 
The buffers will reside in the ENP-30's RAM. 

RCBSk, receive control block stack — queue (RCBSCn * ALCn 

bytes) 

The RCBSk contains the addresses of the RCBks of received 
packets . 

WFASk, waiting for acknowledgement stack — queue (WFASCn * 

ALCn bytes) 

The WFASk contains the address of TCBks of packets that have 
not been acknowledged. When a packet is acknowledged the 
corresponding TCBk is replaced with the last TCBk (pointed 
to by WFASOt) on the stack. The WFASOt is incremented. 


stack pointers 

head points to the start of a stack, the smallest absolute 

address, never changes 

tail points to the end or top of a stack, the largest 

absolute address, never changes 
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in points to the location in which to store the next entry 

in a queue, increases up to tail then reset to head 
out — — points to the location from which to get the next piece 

of data in a queue, increases up to tail then reset to 
head 

push/pop- points to the location for the top of the LIFO stack, 
pop from it, push at 1 + top 

modules increment — increment pointer, if greater than tail 

set equal to head 

ANASHd, active nodes address stack head 

ANASPp, active nodes address stack push/pop 

ANASTl, active nodes address stack tail 

CBSHd, command buffer stack head 

CBSIn, command buffer stack in 

CBSOt, command buffer stack out 

CBSTl, command buffer stack tail 

ITCBSHd , idle transmit control block stack head 

ITCBSPp , idle transmit control block stack push/pop 

ITCBST1 , idle transmit control block stack tail 

IBSHd, idle buffer stack head 

IBSPp , idle buffer stack push/pop 

IBST1, idle buffer stack tail 

RCBSHd, receive control block stack head 

RCBSIn, receive control block stack in 

RCBSOt , receive control block stack out 

RCBST1, receive control block stack tail 

WFASHd , waiting for acknowledgement stack head 

WFASIn, waiting for acknowledgement stack in 

WFASOt, waiting for acknowledgement stack out 

WFAST1, waiting for acknowledgement stack tail 


subroutine calls to the Kernel 

KINIT, call to the Kernel initialize routine, pass address of 
ICBk 

KOUT, call to the Kernel timeout routine, pass address of TOCBk 
KRCV, call to the Kernel receive routine, pass address of RCBk 
KSTS , call to the Kernel control/ status routine, pass address of 
SCBk 

KXMT, call to the Kernel transmit routine, pass address of TCBk 
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8. Protocol design specification 

8.1. Level 1 and part of level 2 of the protocol will be 
implemented by the ENP-30 board or equivalent. 

8.2. Node to node protocol — Each packet will contain the 48 bit 
destination node address, DNAd, contained in the destination 
address field, DAFd, for the packet and the 48 bit source node 
address, SNAd, contained in SAFd of the packet, as shown in table 
1. A node will only process packets addressed to it. 

8.3. Each packet will have a packet number field, PNFd. There 

will also be an acknowledgement field, AkFd. The node that 
originated the command will place in the PNFd the packet's number 
and set the AkFd to indicate that the packet is a command. The 
receiving node will return to the sender a packet that contains 
in the PNFd the number of the packet sent and the AkFd set to 
indicate an acknowledgement. If a packet is not acknowledged 

within the time-out interval, the packet will be sent again. 

8.4. The protocol will use the following instructions to 
establish a network. 

Reset Network — the receipt of this command will cause the 
node to reset itself, in particular the node will do the 
following: 

A. Clear its ANASk (move the head pointer to the start of the 
stack) ; 

B. The return of an acknowledgement packet is optional; 

C. Clear the WFASk; 

D. Clear the RCBSk; 

E. Clear the CBSk. 

Network initialize [w/o-ack] (with out acknowledgement) — 
will initialize the network. It will be sent by the network 
manager. Each receiving node will do the following: 

A. Return a network initialize [ack] packet? 

B. The return of an acknowledgement packet is optional; 

D. Place the data from the sending node on the ANASk? 

Network initialize [w-ack] (with acknowledgement) — will 
place the data from the sending node into the ANASk of the 
receiving node. An acknowledgement packet is required. 

8.5. Network manager — The EPSC will be designated as the 
network manager. Whenever the network is initialize, the network 
manager, NM, will send out in, broadcast mode, a network 
initialize [w/o-ack] packet. This packet requests that each node 
on the network send the NM the receiving node's name and address. 
Each node must have embedded in its software a unique name, e.g., 
LCC1 , LCC2 , PSC1, PSC2 , expert system, etc. This is necessary to 
enable the EPSC to control the individual stations of the system 
if there are more than one of each type of station on the 
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network. When a node receives a network initialize [w/o-ack] 
packet, the node will send the node's address and name in a 
initialize network [w-ack] packet until the packet is 
acknowledged. After the network is initialized, each time a node 
receives a packet, it will compare the contents of the SAFd to 
the contents of each ANAFd in the ANASk. If there is not a 
match, the packet is ignored. 

8.6. The description of the protocol will be divided into five 
sections: general information, initialization, transmit state, 
receive state, and timeout state. The protocol is based on the 
philosophy of a stack of buffers in which data is stored, and the 
moving of the addresses of these buffer. Once data is received 
or generated in the node, the data is not copied to any other 
buffer; the pointer to the buffer is moved. There is a set of 
stacks between which the addresses of the buffers are moved. 
There are also flags which are used to indicate the status of 
portions of the protocol . 

General information 

After initialization the protocol is in a loop between three 
states: transmit state, receive state, and timeout state. The 
protocol loops through the testing of the SBFg, testing of the 
RTFg, and entering the receive state. 

The SBFg is set to one by functions in the operating system 
when a buffer is ready to be sent to another station. The buffer 
will contain all the information necessary to form a packet. If 
the SBFg is set, then the protocol will enter the transmit state 
and form and transmit a packet of data to the desired node. 

The protocol always enters the receive state. It then 
cleans up the WFASk and processes any packets on the RCBSk. 
When a node receives a packet, the Kernel places the RCBk on the 
RCBSk. The packet could be either an acknowledgement, a command, 
or one of the network initialize packets. 

The Kernel has an internal clock that will, by setting the 
RTFg to one, inform the protocol when it is necessary to resend 
packets that have not been acknowledged. If the RTFg is set, 
the protocol will retransmit any packets that have not been 
acknowledged . 


Initialization 

On power up or reset, the Kernel initializes itself and the 
Lance. Then the Kernel waits for the operating system to down 
load the protocol software and set the go bit in the Kernel 1 s 
mailbox. Once the go bit has been set, the Kernel passes control 
of the ENP-30 microprocessor to the protocol software. The 
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following is a list of the operations necessary to initialize the 
protocol : 

A. The protocol calls the Kernel's initialization command. 

This command returns the addresses of the Kernel 1 2 3 4 5 s status 
subroutine, receive subroutine, transmit subroutine, timer 
subroutine, and Ethernet node address. 

B. All the stack pointers are set to the start of their 

respective stacks. 

C. The addresses of all the buffers are placed on the IBSk. 

D. For each RCBk a buffer address is popped off IBSk and 

placed in the RBAFd . Each RCBk is passed to the Kernel 
through a receive subroutine call. 

E. The ANASk is cleared. 

F. The RTFg and SBFg are set to zero. 

G. All the TCBks are cleared and placed in the ITCBSk. 

H. The Kernel's status subroutine is called, which starts the 
Lance. This enables the node to start to receive and 
transmit packets. 

I. The PRFg is set to one. This enables the operating system 

to continue. 

Only in the EPSC will the following be implemented. 

J. The EPSC initializes the network by making and sending a 
network initialize [w/o-ack] packet as follows: 

a. A TCBk is popped off the ITCBSk; 

b. A buffer is popped off the IBSk and the address placed 
in the TBAFd of the TCBk. 

c. The contents of HLCn is placed in the TBLFd. 

d. The following data is placed in the fields of the 
buffer: 

1. The broadcast Ethernet address (all l's) is placed 
in DAFd; 

2. The node's Ethernet address will be placed in the 
SAFd ; 

3. AkFd will be set to indicate a network initialize 
[w/o-ack] packet; 

4. The station name (number) (see table 2) will be 
placed in the SNFd; 

5. The PNFd is set to zero. 

e. Then the address of the TCBk is passed to the Kernel 
through a transmit subroutine call. 
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Transmit State 


If the SBFg is a one when checked, the protocol will enter 
the transmit state. The data flow diagram for the transmit state 
is shown in figure 1. The protocol uses a TCBk to make a 

packet. The last two TCBks on the ITCBSk are reserved for use by 

the receive state protocol. 

A. Therefore, if ITCBSPp - ITCBSHd is less than three, a packet 

can not be made, and the protocol exits the transmit state. 

B. If more than two TCBks are on the ITCBSk, then the protocol 

makes a packet as follows: 

a. A TCBk is popped off the ITCBSk; 

b. The buffer address in SB Ad is transferred to the TBAFd 
of the TCBk. (See table 3 for a description of the 
fields in the TCBk.) 

c. The length of the data in the buffer (DLFd + HLCn) is 
placed in the TBLFd. 

d. The following data is placed in the respective fields 
of the buffer if the contents of the LDFd match the 
contents of an ANNFd: 

1. DAFd will be set to the contents of the ANAFd; 

2. The node's Ethernet address will be placed in the 
SAFd ; 

3. AkFd will be set to indicate a command; 

4. The station name (number) (see table 2) will be 
placed in the SNFd; 

5. The TPNo from the ANTPNFd of the ANASk for the 
receiving node (content of the DAFd equal content 
of ANAFd) will be placed in the PNFd. 

6. And TPNo will be modules incremented. 

e. Then the address of the TCBk is passed to the Kernel 
through a transmit subroutine call. 

f. The SBFg is set to zero. 

C. The protocol exits the transmit state. 

After the packet has been transmitted, the Kernel places the 
address of the TCBk on the WFASk. 

Clean up State 

The protocol will in a round-robin fashion enter the clean 
upstate. In the clean up state the protocol will clean up the 
WFASk. 

The protocol removes all the acknowledgement packets or network 
initialize [w/o-ack] packets from the WFASk. Starting at the 
TCBk pointed to by WFASOt, the AkFd of the buffer of each TCBk is 
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examined. If it is an acknowledgement or a network initialize 
[w/o-ack] packet, the packet is broken apart: 

a. The TCBk is pushed onto the ITCBSk; 

b. The contents of the TBAFd is pushed onto the IBSk; 

c. The location of the TCBk in the WFASk is filled with . 
the TCBk pointed to by WFASOt. 

d. And WFASOt is modules incremented. 

The protocol then exits the clean up state. 


Receive State 


The protocol will in a round-robin fashion enter the 
receive state. In the receive state the protocol will process 
any commands on the RCBSk and update, if necessary, the ANASk. 
The data flow diagram for the receive state is shown in figure 
2 . 


The Kernel maintains a stack of addresses of idle RCBks. 
When the Lance receives a packet the Kernel will supply a RCBk to 

Lance. Lance places the data in the buffer of the RCBk. The 

Kernel will then, through an interrupt, place the address of the 
RCBk on RCBSk. 

A. The protocol starts processing the RCBks on the RCBSk. The 

protocol starts at the RCBk pointed to by RCBSOt and 

processes each RCBk up to RCBSIn. First each packet is 

broken apart. 

a. If bit 15 of the RBSFd is a zero, then there has not 
been an error in the reception of the packet in the 
Lance and the packet can be used. The following is 
performed. 

1. The buffer address in RBAFd is placed in RBAd. 

2. A buffer address is popped off of IBSk and placed 
in RBAFd. 

b. The RCBk is passed to the Kernel in a receive 
subroutine call. 

Now the AkFd of the buffer in RBAd is examined. The buffer 
can contain either an acknowledgement, a network initialization, 
or a command. 

B. If the buffer of RBAd is an acknowledgement, the protocol 
searches the WFASk looking for a corresponding command. 
(The search is between the TCBk pointed to by WFASOt up to 
the TCBk pointed to by WFASIn.) 

a. For each command on the WFASk, (the TCBks can be for 
either command or acknowledgement packets) the 
protocol finds the transmitting node on the ANASk as 
follows: 
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If the content of the SAFd of the packet equals 
the content of the DAFd of the buffer in RBAd, 
then the protocol checks the RPNo as follows: 

If the content of the PNFd of the packet is 
at least as large but not greater than four 
more than the content of the PNFd of the 
buffer, the TCBk has been acknowledged. (A 
sliding acknowledgement window of four.) 

a) the TCBk is pushed onto the ITCBSk; 

b) The buffer address in TBAFd is pushed 
onto the IBSk; 

c) The location of the TCBk in the WFASk is 
filled with the TCBk pointed to by 
WFASOt ; 

d) And WFASOt is modules incremented, 
b. The address in RBAd is pushed onto the IBSk. 

C. If the buffer is a network initialize command, the protocol 
checks if the transmitting node is on the ANASk as follows: 

a. If the content of the SAFd of the buffer is not equal 
to the content of any of the ANAFds, then the protocol 
adds the new node to the ANASk as follows: 

1. The content of the SAFd is moved to ANAFd; 

2. The content of the SNFd is moved to the ANNFd ; 

3. The content of the PNFd is moved to the ANRPNFd; 

4. The ANTPNFd is set to zero. 

b. If the buffer is a network initialize [w/o-ack] , then 
the protocol creates an network initialize [w-ack] as 
follows: 

1. Pop a TCBk off the ITCBSk. 

2. Pop a buffer address off the IBSk and place the 
address in the TBAFd of the TCBk. 

3. Set the TBLFd to HLCn; 

4. Set the fields of the buffer as follows; 

A) Move the content of the SAFd of the RBAd 

buffer to the DAFd of the buffer of the TCBk. 

B) Set the AkFd of the TCBk to network 

initialize [w-ack] . 

C) Place the Ethernet address of the node in 

the SAFd. 

D) Place the station name (number) (see table 

2) in the SNFd. 

5. Then the address of the TCBk is passed to the 
Kernel through a transmit subroutine call. 

c. The address in RBAd is pushed onto the IBSk. 

D. If the buffer is a command, the CBSk is checked to see if it 

is full. If CBSk is full the command is ignored. The 

buffer address in RBAd is pushed onto IBSk. 

( An acknowledgement packet is created and sent to the 
transmitting node as follows: 
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a. Pop a TCBk off the ITCBSk. 

b. Pop a buffer address off the IBSk and place the 

address in the TBAFd of the TCBk. 

c. Set the TBLFd to HLCn. 

d. Set the fields of the TCBk buffer as follows: 

1) Move the content of the SAFd of the RBAd buffer to 
the DAFd of the buffer of the TCBk. 

2) Move the content of the PNFd of the RBAd buffer to 
the PNFd of the buffer of the TCBk. 

3) Set the AkFd of the TCBk to acknowledge. 

4) Place the Ethernet address of the node in the 
SAFd . 

5) Place the station name (number) (see table 2) in 
the SNFd . 

e. Then the address of the TCBk is passed to the Kernel 

through a transmit subroutine call. 

) 


F. If the buffer is a command and the CBSk is not full, the 
command is checked to determine if it should be placed on 
the CBSk as follows: 

a. If the content of the SAFd of the RBAd buffer is equal 
to the content of a ANAFd, then the RPNo is checked as 
follow: 

1. If the content of the PNFd of the RBAd buffer is 
equal to the content of the ANRPNFd, then the 
buffer contains the expected command. 


A) 

B) 

The buffer address in RBAd 
CBSk at CBS In; 

CBSIn is modules incremented; 

is 

pushed 

onto 

C) 

And the RPNo of the ANRPNFd 
incremented. 

is modules 

D) 

An acknowledgement packet is 
Acknowledgement above) . 

generated 

(see 


2. If the content of the PNFd of the RBAd buffer is 
less but within four (a sliding window of four) of 
the content of the ANRPNFd, this is an old packet 
that has already been processed and must be 
acknowledged . 

A) An acknowledgement packet is generated (see 
Acknowledgement above) . 

3 . Otherwise the address in RBAd is pushed onto the 
IBSk. 

b. Otherwise the address in RBAd is pushed onto the IBSk. 

G. After the protocol goes through this processing, it exits 
the receive state. 

Timeout State 

The Kernel has a user setable timer that counts down to 
zero. The user sets the initial count in the timer. When the 
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count reaches zero, the Kernel will set a flag and call a 
subroutine in the user's code. The timer has a resolution of 2 
milliseconds. Figure 3 shows the data flow diagram for the time 
out portion of the protocol. 

When the RTFg is checked and is one, the protocol will call 
the function that will reset the RTFg, start the time out clock 
again, and retransmit all the packets, if any, in the WFASk. 

A. The RTFg is set to zero. 

B. There will be only one TOCBk . Table 5 shows the fields in 

the TOCBk. The timer subroutine in the Kernel is called 

and passed the address of the TOCBk; nothing is changed in 

the TOCBk except that the RTFg is reset to zero. This 

starts the Kernel counting on the next time out interval. 
The TOFd of the TOCBk contains the number of 2 ms. 
increments of time to be counted down. When the count 
reaches zero, bit 15 of the RTFg in the TOCBk is set to 1. 

C. If there are any TCBks on the WFASk, they are retransmitted. 
The position of the WFASIn is noted, and all TCBks between 
WFASOt and the old WFASIn are sent to the Kernel one at a 
time through transmit subroutine calls. (The old WFASIn 
must be noted because after each TCBk is sent to the Kernel, 
the Kernel will place the TCBk back on the WFASk.) (The 
call to a subroutine in the user's program by the Kernel is 
not used; only a subroutine return is coded.) 

D. The protocol then exits the timeout state. 
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Table 1 Packet Format 


Hex Field Number 

Address Name of Bytes 


0 

Destination address 

DAFd 

6 

bytes 

6 

Source address field 

SAFd 

6 

bytes 

C 

Acknowledgement field 

AkFd 

1 

bytes 

D 

Packet number field 

PNFd 

1 

bytes 

E 

Station name field 

SNFd 

1 

bytes 

F 

Logical Destination 

LDFd 

1 

bytes 

10 

Forward Address field 

FAFd 

1 

bytes 

11 

Return Address field 

RAFd 

1 

bytes 

12 

Time stamp field 

TSFd 

4 

bytes 

16 

Data length field 

DLFd 

1 

bytes 

17 

Command name field 

CNFd 

1 

bytes 

18 

Select field 

SFd 

2 

bytes 

1A 

Data 

variable 


AkFd, Acknowledgement field contains a number indicating the 
type of packet as follows: 


type 

AkFd 

acknowledgement 


AkCn 

0 

command 


CCn 

1 

network initialize 

[w/o-ack] 

NICn 

2 

network initialize 

[w-ack] 

NIACn 

3 

network clear 


NIC1 

4 


PNFd, The packet number field is the number of the packet. 

SNFd, The station name field contains the name of the station 
sending the packet. Each stations has a unique number 
corresponding to the name of the station defined as follows: 
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Table 2 Station names 





stal 

:ion number 



station type 

1 

2 

3 

4 

5 

6 

7 

8 

EPSC 

0 








PS 

8 

9 

10 

11 

12 

13 

14 

15 

LCC 

16 

17 

18 

19 

20 

21 

22 

23 

Expert Sys. 
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TSFd, The time stamp field contains the relative system time when 
the command is performed. The time is the number of ticks on 
the system clock. The system clock has a resolution of 2 ms. 

CNFd, The command name field contains the name of the command. 

DLFd, The data length field contains the number of bytes of data 
in the command and must be less than 240 (BLCn - HLCn) bytes. 

Table 3 Transmit Control Block 


byte name of block present 

address contents 


0 

Link address (address of the next 

supplied by user 

2 

block for a multi-block packet) 


4 

Status 

supplied by ENP 

6 

Transmit buffer length field TBLFd 

supplied by user 

8 

Transmit buffer address field 

supplied by user 

A 

TBAFd 


C 

TDR value (data used if error) 

supplied by ENP 

E 

Reserved 

used by ENP 
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Table 4 Receive Control Block 


byte name of block 

address contents 


0 

Link address (address of the next 

supplied by ENP 

2 

block for a multi-block packet) 


4 

Status RBSFd 

supplied by ENP 

6 

Buffer length RBLFd 

supplied by user 

8 

Receive buffer address field 

supplied by user 

A 

RBAFd 


C 

Receive message length field RBLFd 

supplied by ENP 

E 

Reserved 

used by ENP 


Table 5 Time Out Control Block 

byte 

name of block 


address 

contents 

0 

Link address (address of the next 

supplied by ENP 

2 

block for a multi-block chain) 


4 

Retransmit flag, RTFg 

set by ENP 

6 

Time Out Field TOFd 

TOCn 

8 

Time Out Subroutine Address Field 

supplied by user 

A 

TOSAFd 


c 

Time Out Event Code Field TOECFd 

supplied by user 

E 

Reserved 

used by user 
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Table 6 Initialization Command Block 


byte name of block 

address contents 


0 

Mode 

ICBMFd 

supplied by 

user 

2 

# Receive Descriptors 

ICBNRDFd 

supplied by 

user 

4 

# Transmit Descriptors 

ICBNTDFd 

supplied by 

user 

6 

Reserved 


8 

Logical Address Filter 

ICBLAFFd 

supplied by 

user 

A 




C 




E 

Receive Interrupt Handler 

supplied by 

user 

10 

Address 

ICBRIHAFd 


12 

Transmit Interrupt Handler 

supplied by 

user 

14 

Address 

ICBTIHAFd 


16 

Bus Interrupt Handler 

supplied by 

user 

18 

Address 

ICBBIHAFd 


1A 

Ethernet Station Address 

ICBESAFd 

supplied by 

user 

1C 




IE 
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Table 7 Initialization Response Block 


byte name of block 

address contents 


0 

Ethernet Station Address IRBESAFd 

supplied by ENP 

2 



4 



6 

Reserved 


8 

Status Routine Address IRBSRAFd 

supplied by ENP 

C 

Receive Routine Address IRBRRAFd 

supplied by ENP 

10 

Transmit Routine Address IRBTRAFd 

supplied by ENP 

14 

Timer Routine Address IRBTORAFd 

supplied by ENP 

18 

Address ICBBIHAFd 

supplied by ENP 


Table 8 Status Control Block 


byte name of block 

address contents 


0 

Function Code 

SCBFCFd 

supplied by 

user 

2 

CSRO Return 

SCBRFd 

supplied by 

ENP 

4 

Statistics Block Address 

SCBSBAFd 

supplied by 

ENP 

6 




30 


























Figure 1 Data Flow Diagram — Transmit Protocol 
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Figure 2 Data Flow Diagram — Receive Protocol 
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Figure 3 Data Flow Diagram — Time out Protocol 
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9. Appendix B Structured Flow Diagrams of Protocol 
Revision D 

9.1. Stack and Queue initialization definitions 

9.1.1. Stack 


Initialize 

Stack 


Starting 

Address 


Ending 

Address 



+- Pointer 
- Head 

*- Head + ASCn 


+- Tail 


9.1.2. Queue 


Initialize 

Queue 


In Pointer 

r 

Out Pointer 
Head 


Head+ASCn 

l 


Tail 

I 

4- 


t 

Starting 

Address 


t 

Ending 

Address 
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9.2. Definition of [ ] operator 


On the right hand side of the read "[ x ]" as: the contents 

of the location pointed to by x. 


On the left hand side of the read "[ y ]" as: store in the 

location pointed to by y. 


9.3. Functions operating on stacks 

STACK POINTER HEAD TAIL 


ITCBSk ITCBSPp ITCBSHd 

IBSk IBSPp IBSHd 

ANASk ANASPp ANASHd 

9.3.1. General Push and Pop functions 


ITCBST1 

IBST1 

ANAST1 


9. 3. 1.1. PUSH procedure 
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9.3.4. LOCK IBS and UNLOCK_IBS 
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9.3.5. PUSH ANASk 
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9.4. General operations on Queues 


QUEUE IN-POINTER OUT-POINTER HEAD TAIL 

CBSk CBSIn CBSOt CBSHd CBST1 

RCBSk RCBSIn RCBSOt RCBSHd RCBST1 

WFASk WFASIn WFASOt WFASHd WFAST1 


9.4.1. Join QUEUE procedure (QUEUE_IN) 
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9.4.2. Serve QUEUE procedure (QUEUE_OUT) 
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9.4.3. ENTER_QUEUE and DELETE_QUEUE 
9.4.3. 1. ENTER_QUEUE 
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9. 4. 3. 2. DELETE QUEUE 
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9.4.4. Test CIRCULAR QUEUE Operation 


9 . 4 . 4 . 1 . EMPTY Function 



9. 4. 4. 2. FULL Function 
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9.4.5. JOIN and SERVE operation on QUEUE 
9 . 4 . 5 . 1 . QUEUE_IN_OUT_CBSk 


Join QUEUE 



Serve QUEUE 



QUEUE_OUT_ 

CBSk 




l 


QUEUE_OUT (item, CBSHd, CBSTl , CBSIn, CBSOt, 1) 



l 



EXIT 
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9 . 4 . 5 . 2 . 


QUEUE_IN_OUT_RCBSk 
Join QUEUE 



Serve QUEUE 
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9 . 4 . 5 . 3 . QUEUE_IN_OUT_WFASk 
Join QUEUE 



Serve QUEUE 
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9.5. AMPS Communication Network Structured Flow Diagram 
9.5.1. Top level flow diagram 
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9.5.2. — Level 1 INITIALIZATION 
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9.5.2. 1 


Level 1.1 Make STACKS 
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9. 5. 2. 2. — Level 1.2 Make QUEUES 
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9. 5. 2. 3.1. 


— Level 1.3.1 make RCBk buffer 
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PUSH_ITCBSk (BufVr) 
BufVr «- BufVr + TCBLCn 













9. 5. 2. 4. — Level 1.4 Form ICBk 


[ ICBuf + ICBMFOs ] «- LANCMODE 
[ ICBuf + ICBNRDFOs] «- RCBCn 
[ICBuf + ICBNTDFOs] «- TCBCn 
[ICBuf + ICBLAFFOs] «- 0 
[ICBuf + ICBRIHAFOs] «- RX_INT 
[ICBuf + ICBTIHAFOs] «- TX_INT 
[ICBuf + ICBBIHAFOs] «- BUS_INT 

call KRNLINIT with ICBk on stack (ICBuf, IRBuf ) 


EXIT 


9. 5. 2. 5. — Level 1.5 Read and Store kernel subroutine addresses 


SACn - [IRBuf + IRBESAFOs] 
KSTS «- [IRBuf + IRBSRAFOsj 
KRCV «- [IRBuf + IRBRRAFOs] 
KXMT *- [IRBuf + IRBTRAFOs] 
KOUT ♦- [IRBuf + IRBTORAFOs 

i 

EXIT 


] 
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9. 5. 2. 6. — Level 1.6 call Kernel Receive Ring Fill 
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— Level 1.7 KRNLINIT 



TCVr «- POP_ITCBSk 
[TCVr + TBAFOs ] «- POP_IBSk 
IBVr «- [TCVr + TBAFOs] 
[TCVr + TBLFOs ] «- HLCn 


[IBVr + DAFOs] 

4 - 

BCASTAd 

[IBVr + SAFOs] 

4 - 

SACn 

[IBVr + AKFOs ] 

4 - 

NICn 

[IBVr + PNFOs ] 

4 — 

0 

[IBVr + SNFOs ] 
XMSTVr «- 0 

4 — 

SNCn 



YES 



I 


Print ('NETWORK 
INITIALIZATION 
ERROR' ) 

STOP system 


EXIT 

















9. 5. 2. 8. 


— Level 1.8 Start transmitter timeout 
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9.5.3. — Level 2. RECEIVE STATE 
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— Level 2.1 RECEIVE_ACK 



62 





















— Level 2.2 RECEIVE CCn 


2.2 RECEIVE_CCn 
(receive command) 


QUEUE_FULL (CBSIn, CBSOt) 


SNVr «- [RBAd + SNFOs] 
Tempi «- ANASHd 



EXIT 















.2.1. — Level 2.2.1 CHECK_COMMAND 
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9 . 5 . 3 . 2 . 1 . 1 . 


— Level 2 . 2 . 1 . 1 GENERATE_ACK 



2 . 2 . 1 . 1 GENERATE_ACK 



Generate Acknowledgement packet 







TCVr «- POP ITCBSk 
[TCVr + TBAFOs] - POP_IBSk 
IBVr «- [TCVr + TBAFOs] 
[TCVr + TBLFOs ] «- HLCn 


4 

[IBVr + DAFOs] 
[IBVr + SAFOs] « 
[IBVr + AKFOs] < 
[IBVr + PNFOs] < 
[IBVr + SNFOs ] < 

- [RBAd + SAFOs] 

- SACn 

- AKCn 

- [RBAd + PNFOs] 
h SNCn 




1 

— i 

Kernel call transmit subroutine (TCVr) 



4 




EXIT 

GENERATE_ACK procedure 
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9. 5. 3. 3 


— Level 2.3 RECEIVE_NICn 
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.5. 3. 3.1. — Level 2.3.1 CHECK_ANASk 
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9. 5. 3. 3. 2. — Level 2.3.2 CHECK_NICn 
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9 . 5 . 3 . 3 . 3 . — Level 2.3.3 CLEAR_PROTOCOL 
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9.5.4. — Level 3. TRANSMIT STATE 
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9.5.4. 1. — Level 3.1 MAKE_PACKET 
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Level 3.1.1 SEARCH ANASk 


3.1.1 SEARCH ANASk 


LDVr <- 

[PACKVr + LDFOs ] 

Temp +- 

ANASHd 


Temp > ANASPp ? 
NO 


PUSH_ITCBSk (TCVr) 
PUSH IBSk (PACKVr) 


ANVr 


[Temp + ANNFOs ] 


LDVr = 


Temp 


ANVr ? 

NO 

Temp + ANLCn 

l 


TPVr 


Temp + ANTPNFOs 


[PACKVr + DAFOs] «- [Temp + ANAFOs] 
[PACKVr + SAFOs] <- SACn 
[PACKVr + AKFOs ] «- CCn 
[PACKVr + PNFOs ] «- [TPVr] 

[PACKVr + SNFOs] «- SNCn 
[TPVr] «- [TPVr] + 1 
Kernel call transmit subroutine (TCVr) 


EXIT 


2 















9.5.5. 


— Level 4. CLEAN UP STATE 
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10. Appendix C Protocol source code in FOURTH 


I I S I 


( Compiler) HEX 

FORTH : IMMEDIATE 8000 PREVIOUS NAME 4— CP b 4 + NAME. 

IN* 1 VOC W0 0003 VOC W ! TARGE. I VOC W ! ; 

FORTH ■ [ COMPILE 1 FORTH CONTEXT Wd 1 0003 CONTEXT Wl 

FXECI IT F CONTEXT W! ; TARGET HOST DECIMAL 

; code YhIL OT < n t> H U) DO MOV S )+ DO ADD 1 #0 Do ADD 

■-> # on BCi R DO D1 MOV 250 # D1 ADD D1 S CMP 

EXIT BRA THEN IS-) MOV ME. X I 
die t. i o n a r y Tull" ; R E O V E R 
7 SB # DO ADD -65536 # DO AND 


1 0 
i :i 
1 0! 
1 3 
1 4 
1 5 


LB NOT IF DO H U) MOV 
: ALLOT < n) ? ALLOT A BOR i 

(LODE 7CELL S ) DO MOV T 
DO S -> MOV NEXT 
s C, ( n ) HERE C! 1 H +! 

: Ia) h ( n ) AI. .LO i HERE. * 

( : C i } > E C : O M P’ 1 L E H L \ ) A 0 MO V 

- l 1 FERAL ( n) ?CELL IF COMPILE long 
l.: 0 M P I L IF c e J 1 W , T H E N ; I M M E D I A i E 


n 


4 ALLOT HERE 4- 


W ! 
1 


)+ AO ) i- MOV AO H IL> ITUV ME: X I 
. ELSE 


{ .1 SI 


4 

.. t 

6 
7 
B 
9 
i O 


i 3 
i T 

I s 


I ] 8 ! 


3 


1 0 
i i 

i v; 

i. 3 

I 4 
j p. 




;R QUALITY 


75 



i ii ih'b i Kl.-i I rbh l 


i ii'ibfc.ii bh 


,BK .i pol y 1" Uh: I H, 


, , get Compiler for ENP~ 30) EMPTY DECIMAL 

■ HR P 1304 HR PS 5 < HELP! HEX 1010 WIDTH W! DEC. Mini 

SHADOWS 20 CONSTANT NEW 1306 CONSTANT ENP30 

■AHEAD ( a) > 1 N m 32 WORD SWAP >IN W! ; 

create’ HEAD * 32^11.01- CREATE HDS 4 ALLOT ^ CREATE ? I WO 1 W, 
oarVaR F wo VARIABLE H VARIABLE R WVAR 1 ABLE VOC 
I Changed to allow for 32k ENP30 application DW UAH) 

{ i-ift r. > 46 LOAD HOST DEFINITIONS 

; 0R0 ( a) 1+ 2/ 2* H ' ; : HERE ( - a) H ; 

■ I ,AP 1 n> HERE + ORB ; : THERE ( -at R <e ; 

HPX : WINDOW ■: n> DUE' ORB WO ! 0 R ‘ 000B VOC W! 

HEAD 20 ERASE ; DECIMAL 

« . o HDS W ( : : RECOVER ~4 BAP ; DECIIihI 

< Compile. To RAM) t.303 LOAD ( Assembler) 50 LOAD 
: ALLOT ( n> R ) 1 ; 


Compi 3 e To RAM Changed f or 


3 2 k a p p I D W U A H 7 - 1 0 - 8 9 > 


i , pp,;i 1 1- PAM 40960 ALLOT 

. mci I0NARY ( r i > RAM 40960 255 FILL. HDS 2DUP Wi 2 + W. ; 

•, r , ( a ... a > WO -a - 40958 MIN RAN + ; 


"i I ' ,’rl “ i f" 1 » I' ) c-T ) .1 . 1 

5 : I LB 1 a n) si 1.& , • • ; , T . , . 

6 : TWa •; a - n) ■ t Wa . ’ 1 . ' ' , . , . 

7 - f w-i ' n a) >T W+ ‘ ; : 1 ' 1 d a) " 1 

8 TC, HERE It! 1 H + ! “ : W, 2 GAP HERE 2- 1W. , 

9 ; , 4 ( ;> A F HERE: 4 I ! ; 

10 : CMOVE < s d n> >R R> CMOVE ; ,, , , 1 , , «, Cl 

11 - iullMP < a n) OVER + SWAP DO CR 1 / U.K 1 s.O + 1 ' 1 1 N j LL 

‘ ■ 'f.L« . pYpPAPES 1 iwe 6 U.B 2 / LOOP 20 +UJOP SPHUt = 


* C\ c:l ) 


W, 2 GAP HERE! 2- iw 


12 I 7 AND 0~- 2* SPACES l iw ° o.rv 

17. : FLUSH RAM NEW 20 + NEW DO DUE 3 

i ,| UPDATE 1024 + LOOP DROP FLUSH : 
TO ;t LOAD < DATA 1 10 PRO! i PROGRAMMER) 


HEW DO DUE 1 BLOCK 1024 MOVE 


HELP 


1 ar q e t COMP 1 L. E R i r i s t r u c t i or i 1 


FNP30 LOAD Compiles pel yT : OR T FI for Hus environment 
New programs are compiled to b 1 or. k r» t 


n ! .Pi ii ir 


I HERE U. 


Dumps target address space, n bytes at.. 
Current lop of target dictionary 
Neat available target RAM location 


C , : ..at <2 


Edi + 


OF POOR QUALITY 


-o !X! 


;: r .br i > SPMS AMPS/TRW/MSFC 1 /01 / 00 


C.IB60K-- 1 pol yF UR I P 


0 ( ENP-30 2nd load screen loaded from 1-506) 

1 CODE X HERE: 10 - HEAD ! HEAD DUP 4+ 28 MOVE 

2 HEX 8020 HERE 6 - TW ‘ DECIMAL 

4 ( Nucleus) 63 69 THRU 108 109 THRU 70 71 THRU 

5 ( largeC compiler) 51 53 THRU FORGET VARIABLE 

? ( Novel 1) 72 74 THRU ( Mul t i programmer ) 1275 1277 THRU 

8 HEX HERE . THERE . DECIMAL 

9 ( CMUVE ) 58 LOAD 1010 WIDTH W! 

I A 2000 L OAD 

1.1 2129 LOAD 


( ENP - 30 L oad B 1 or. k 6 / 1 / 85 ) 

HELP CR HOST DEFINITIONS FORGE I ALT- 0 1 
: AL L. 0 1 ( n) R +! ; HEX F 04000 EQU PROM 

26 DICTIONARY PROM WINDOW PROM 8 + ORG 
P 04000 EQU FIRST DECIMAL 

FIRST 256 256 + — DUP EQU OF'ERATuR 25ti + R 
1 305 LOAD 

( Terminal ) ( £11 83 THRU / 9 LOAD) 

( Disk) ( 96 98 THRU) < Init Terminal) < 80 LOAD) 

1307 LOAD 1308 LOAD 

( HEX 1000 H'S T! 1000 IT'S 4 + T! DECIMAL) 

HERE H S T I HERE H ' S 4 + T 1 
( Links) HOST HEAD ram 2+ 32 CMOVE 
HEX HERE . THERE . DECIMAL. 

HOST FLUSH 

FORTH CR CR CR TODAY W© .DATE 2 SPACES @1 I ME -I1ME 


Alia). RAM values screen loaded from screen 1 3u6 ; HE a 


7 CREATE OPERATOR OPERATOR , OPERATOR BO 

3 4 1-IP 9 W, OPERATOR , 0 . 0 W, < rnmu) O , 

4 0 W „ 0 t 4 u 14 h O t * 

f : . (j m 0 , O I" H 1“ L j \ h / Uw.« ) * 

cr- O | ABE I H b c 1 ' OrP O < OR W, 


'OPERATOR BO 


I URt: R ! r:. r -=•* ii 


W ,, 20 OAP 1. W it 


GuAlJTv 


pi. .'1 vf" Lir- i 


liHbbu bPiib hMPB/ i RW/44BPU 


O J. 




1 } 

* ENP 

50 powe 

>r II p screen 

1 (jr.ti'io/u t r c.'fu 20 

28 > HEX 

1 

.3 

A Fit I 

S I At' 1 

"i r c:iin bUL 

DEN 48 MOVE: 



OP 

“KA 1 Oft 

8 i- S 1 r i i. Jb 

Dl. )P 100 ERASE 

4b j !i! *Vi- 

4 


er i p 

>i nsAMf. Du? 

j. r i :i 1 0 o t" t :i 

,i l If! ' ■ 'I I’ C 

•7* 

u o 

j a no:-- 

P4JN 1 N i 1 


r • 

O 

Htb-i 

t \ 

1 H 

1 i i ! I r=- L 

" \ i | : ‘ UP ! - -t 1 ! 1 kt./ J 

i.i 

! 

8 


I : 1 i -i » i !. 0 

, i vv . ! F: ' ' ' 1 l 

, t- a I + < alive 

1 

i >: » 

\ oPi-i 

r vPr . 

: 1 ; ' 



1 j 


11 i 

MOV 2000 

#W MTSft) 




Xrv 1 # 

i MOV 




i. rp 

P EA T DR 

OOP # U MOV 

i BO - # S MOV 

> UR MOV 

J. 4 

r i 

EX 1 4 i 

A 2 MOV 02 

S --) MOV NEXT 


15 

hi P:! RE 

PRO! 

v i Oft A 0 , 

POWER-UP , 

ORB 


!. b 


0 


1 


li 


6 
7 
B 
9 
1 0 
J. 1 
1 7 


11 o v f ? c: o d e l . c j P 14 P - 3 O ) H E a 


if j 

w f enp 
eiipiiipv 
q a e 1 1 j j 


F 05000 + TW® ; 

C P 000 + W ! ; 

DO I. 7 * w@e?np I 7' * w 1 enp L..UUF 
£ 5 o o 4 |4 $ c 1 0 0 4 W ! C '5 0 0 6 14 '4 C 1 0 0 6 W 1 


0 O H O L .1 '• 


:L s 

} ?. :i 0 l. . L 8 I 


B 

9 

1 O 

1 S 
J 2 
13 
.! 4 

:? 5 


78 


Uii*' 


L 3 

i i 


OF POOR 


PAGE IS 
QUALITY 




po.i vRJK ! I 


uu! j r« f- Vo i::: i 7 h'P'Ho PiMP o 


I RW/ MSP i 


1 / 1.> 1 / uo 


0 

1 


4 


1 0 
I 1 
i 2 
1 3 - 
i 4 
i S 

\y I i. S I 

i i 

i 

4 

t: 

V. 1 

O 

~7 

/ 

8 
9 
i o 

:i :i. 

:l 

i 3 
1. 4 

1 f:» 


i I S 1 


4 


8 

O 

j 0 
i 1 
1 2 
l 3 
i 4 
i 5 


Oh QUALITY 


79 


1 / O J. / oo 


p .... J ybUKIil 


o b 4. > o u b r b b. u b b ■ i • i b h I IP b / 


i RW/ MSF L- 


Ubbdk j 


1 3 1 4 LIST 


1 


4 


B 
9 
1 0 

1 I 
i 2 
1 3 
I 4 
t b 


i :2ib i. 18 ! 

0 

1 

4 

l :' 

b 

7 

8 
9 

1 0 
1 1 
1 2 
j 3 
1 4 


13:1b 1 1ST 

0 

J 


4 

o 

b 

7 

8 

1 0 
1 1 
1 2 

13 

14 
1 fi 


80 


)i .n ; BhSED BP HB Hi'IPS/TRW/MBFl. i 


OPtiBI-- i poi y'F UN I H ■ 


1.317 LIS I 


4 


V 

1 0 


i 2 

1 ,5 

j 4 


I i SI 


rj 


6 

t 

8 

9 
J. 0 
*i i 
i 2 
] 3 
1 4 
1 B 


i i; s i 


( > 


1. 


4 


8 

9 

i o 
i \ 
l 2 




rnr-v' 


i 4 

i. 8 


81 



>0 CO 


bh’h'ib f-iHH b / 1 RW/MSFU 


i. / o i / oo 


U)v>6bf- ' i 


pul yf-UK l H 


Kiibb i.> 


0 

1 


:i 0 

1 1 
1 2 
1 3 


(1 

1 


/I 

r. 

6 


1 0 

:i. :i 

1 

1 3 
1 4 
■] : • 


;,>( )00 i. I S I 


i } 
1 


4 


( EI4P30 INITIALIZATION CONTROL BLOCK CONSTANTS) HEX 
8000 CONSTANT .1 an c: mode F01004 CONSTANT inicb 

00 10 CONSTANT RCBC 0010 CONSTANT TCBC 

<; F0.1J.00 CONSTANT rxhndlri < F0U80 CONSTANT t> 

FO 1 300 CONSTANT ini_b 

FFFOO 1. CONSTANT MPUcsr IE CONST AN I MPUset 

F 0 1 322 CONST ANT r p b 
LOT 314 CONSTANT >; (Tone? 


9 FOU 20 CONSTANT r bcb F01160 CONSTANT head_r 

3.0 F011 64 CONSTANT tail r 

11 OF Cl MAI. 2001 2006 THRU 

.1 2 


1 3 

i 4 
:i :< 


chndl r ) 
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BASE L> 


o 8 '- jOO 


E? P ! • i S A M P S / T R W / M 6 F C 


1 / Oi / 00 


DB 6 BK 1 pol V F UR I H/ 32 


200 I I IS I 

0 »: ENP30 Kernel call routine in assember 

1 

2 CODE:, call enp < parent sub© - parmte! 1)0 > 
t 3 ) ■+• AO MOV S ) + R ” ) MOV 

4 AO ) J SR R )+ S -> MOV DO S 


May 14 89) HEX 


-) MOV NEXT 


6 

8 

1 0 
1 i 
1 2 
1 3 
:i 4 
1 3 


I. 1 ST 


2 ufi 06 85 > ME X 


0 i ENP --30 Ethernet, board appl . blocks 

1 

2 HERE ASSEMBLER 

3 p 01 164 AB AO MOV ( get. bob tail > 

4 4 ft) AO > MOV ( move new rev bcb to tail > 

h 4 AO ADD ( bump tail pointer ) 

6 FOll 60 # AO CMP 0= IF < chk if wrap around) 

y F 01 120 # AO MOV ( wrap around to begin of tifo ) 

8 THEN 

9 F 0 1 \ 6 0 AB AO CMP ( check it head tail 

10 0= IF RTS THEN < head - tail « overrun , don" t update ptr 

I •} a o F 0 1 1 6 4 A B M 0 V R T S ( u p d a t e t a i 1 P o i n t e r > 

1 2 C:0N S T AN T r h n d 1 r 


1 4 
1 3 


0 i F: NF 30 Ethernet board appl- mccccc 3 Jun-ut> 85; HE a 

1 

2 HERE ASSEMBLER 

3 i # F'01014 AB MuV RTS 

4 CONST ANT txhndl r 


(> 
b * 

9 

) >: ’* 

1 1 

1.2 •.u'.-re 

1 3 

14 


83 



. > j f. i ( j B [ ■ U b P i i b A N P b / I R W ti b P L 1 / • • 1 


UBobk i pu. 


o ( E N P ■ 3 0 E t h & r n e t b o a r d a p p 1 - m c: c c c c 


J un — 06- 85 ) HE 


2 HERE ASSEMBLER 

3 RTS 

4 C DNS ' F' AN T b u s h r j d 1 r 

3 

<b 


8 

1 0 
I .1 

:i 2 

1. 3 

14 

. 1 . s 


I. .1 s 


() { ENP30 ICB setup tor UAH amps protocol Apr i 1 b B~ > HE 7 
\ s enpmask i a dr Multi Bus (3 spac e ) 

2 Qpppp pvim i;> A 0000 + ; ( mask to enp iiui tBus adr 5p« 

3 : ENPmask ( adr — ENP £ space > 

4 Qpppp AND F00000 + ; ( mask to ENPbO private adr « 

5 : MSBC 1 mask < adr — Multi Bus © space ) 

^ OFFFF AND 20000 + ; ( mask to MBBC1 Mu It Bus adr r- 


7 

8 A 04 B0 CONSTANT SUBAD 

9 - c e i- P n p M PI Ise t M F' U c s r C ! i n i b 3 4 ERA S E. 

10 i n i b "la n c mod e OVER U! RCBC OVER 2 4 • W i ICBC DOER 
j j rxhnd 1 r OVER iO i" ! txhndlr OOEFv 14 * 

12 bush rid 1 r SNAP 18 + 1 ini h F01004 0 DUP SUBAD ! 

13 SWAP 1C + 18 CMGVE ; 


4 


+ l 


1 i € 


1 4 

i f .< 


i r t i i i t o r b c: b 4 O 


ERASE r b c: b DUP h ead r 


tai I r 


! I S i 


0 DECIMAL 

1 

2 2023 LOAD 2028 LOAD 2030 LOAD 


i. y k UK I H 


x 


u:.:e > 

:>p riC e > 
space > 

ij t 

:anp 


pal yP UK i t 


c: , c !i n.M.j hittSEL) bP't'iS P-il’iK 


I RW/MBP L 1/01 


Ude.dt , 1 


I.IS! 


0 

:i 

4 

l :: 

Xm j 

6 

7 

8 
9 

X 0 

1 1 

I 2: 

j “i. 

I 4 

1 { 5 


2024 L IS I 

0 

1 


4 





i o 

1 1 
1 2 
13 
1 4 
1 5 




i? 

ii 1 
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i.i Hi ibfc:: U 


l ii lHb- \ KW/ HbFL 


ULodk J 


pu.1. y F UK ! i i 


brno 


LIST 


o 


4 


( Ker iibJ r esponse bl dc I: address 
( HE X 

F 0 i 3 4 0 C: 0 1 1 8 T AN I <’ i n t e r c o iti 
F 0 1 354 CONS T AN i < km 3 st a t. 
VARIABLE -f code 


c:: o r t s t a r ) t s a n d v a r i. a b Ibs 6 - i I 8 V > 

F 0 ;i. 3 5 0 C 0 N S T A N ! < a 3. i v e 

FO 1 358 CONSTANT < net st at 
VARIABLE csreq) 


j 0 
i 1. 
3 

1 3 

:i 4 


0 E X I T 

1 


4 

6 

8 
9 
1 0 
:l. i 

1. 2 

3 3 
J 4 
\ 5 


L I 3 I 


0 E X J. I 

1 


3 0 
3 1 
1 2 
.1 3 
3. 4 


t ; V 


IS 

CtUiTY 


86 



-0 CD 


1 RW/MSFC 


U B 6 8 K I I-.' u .i. y F : U K I H 


DEFINE CONST AN T 1 


04 CONSTANT ASCN 16 
OA CONSTANT AKCN OB 
OD CONSTANT N I ACM 
04 CONST AN i RTF" OS O 
08 CONSTANT TBAF05 
00 CONSTANT ANAFOS 
0 7 CONST ANT ANTPNFOS 
00 CONSTANT DAFOS 
00 CONSTANT SNFOS 
16 CONSTANT DLFQ 
3 CONSTANT RBAFDS 
1 CONSTANT TRUE 


6 CONSTANT HI. ON 
B CONSTANT CCN OC CONS 
0 E C 0 N S T A N T N I C L 
06 CONSTANT TOFOS 

06 CONSTANT TBLFOS 4 
06 CONSTANT ANNF'OS 
S 08 CONSTANT ANRPNFOS 


CONSTANT NICN 


CONSTANT TBSFOS 


06 CONSTANT SAFOS OC CONSTANT ATT- OS 

OE CONSTANT F'NFOS OF CONSTANT L.DFOS 

S OA CONSTANT ANLCN 

06 CONSTANT RBI F OS 04 CONSTANT RBSFOS 
0 CONSTANT FALSE 


CONS 


TERRCN 


4 0 0 O C 0 N S I A N T R C V E R R C N 


( DEFINE VARIABLE) HEX 

VARIABLE SNCN . 

VAR1ABI E 1 TCBSPF' VARIABLE ITCBSHD VARIABLE 1 1 CBS I L 
VARIABLE IBSPP VARIABLE I DSHD VARIABLE IBSTL^ 

VARIABLE ANASF’P VARIABLE ANASHD VARIABLE ANAbTL 

VARIABLE CBS IN VARIABLE CBSOT VARIABLE CBSHD VARIABLE LBS I L 


; VARIABLE BCBS1N 
TAR I ABLE RCBSTL) 
•'ARIaBI E WFASHD 


TAR I ABl ...E 
VAR 1 ABl. E: 
VARIABLE 
VaR I ABLE: 


bAL.Nl. 
FT.. AG 
TOBUF 
Lp 


VARIABLE R CBSOT 
VARIABLE WF AS I N 
VARIABLE WF ASTI... 
VAR I ABLE SACNL2 


■' r i T .1 AjBI... E: R'CBb 1 T'J 
VARIABLE RCBSTL 


VAR I ABLE: RCBSO i 


VARIABLE RCBSHD 
VARIABLE WFASOT 

VARIABLE SACNH 


TAR I ABLE RCBSHD 



00 o- 


bt ;bP l./ bFTTB tiliP'b/ TRW/ MSEC 


UbocU - i poJ yPUR I H 


20132 i..:t 3 ? 

0 ( DEFINE MAILBOX OFFSET > HEX 

1 

2 A0230 CONSTANT MAILBOX 

3 0 CONSTANT SBFGOS 

4 4 CONSTANT RDF 60S 

5 8 CONSTANT SBADOS 

b OC CONSTANT MBSNCNOS 

/ 10 CONSTANT <al iveOS 

8 14 CONSTANT ERROS 

9 18 CONSTANT NEWBLIF 

10 ic CONSTANT OLDBUF 2C CONSTANT FLOS 

] | 20 CONSTANT ol dt.rnp 24 CONSTANT salt 28 CONSTANT sal 

| 2 30 CONSTANT sal 2 

13 00030 CONSTANT mb;: A04C8 CONSTANT rtmp 

14 A0430 CONSTANT rvbox A0490 CONST AN t trans 

15 A0480 CONSTANT ST SAD A04A0 CONSTANT recrv 


03 LIST 

0 EXIT 

1 


4 

t:: 

1 

6 

7 

1 0 
I 1 
1 2 
1 

.1 4 
1 


2004 LIS I 

0 ■, POSH AND POP OPERATION) 


3 : DOPUSH ( ad dr SF' — ) 

4 DOP O ASCN + DUP ROT 1 ! ; 

5 s PUSH ( ad dr NO SF' TL — > 

3 (g OVER @ = IF DROP MAILBOX ERROS + I 

7 ELSE SWAP DROP DOPUSH THEN ; 

8 : DOF’ OP ( SP — ad dr ) 

9 DUP ® SWAP' DUP @ ASCN - SWAP I ; 

10 : POP ( NO SF' HD — addr > 

1 i m OVER & SWAP < IF DROP MAILBOX ERROS + ! 

12 ELSE SWAP DROP DOPOP THEN ; 

1 3 
1 4 
1 5 


88 


0B68K- i 


pol yF UK I I 


> BASED SF'I’IS AMPS/ 1 PW/MSFC 1/Ol/uu 


0 < PUSH PDF' OPERATION ON STACKS) 

3 

3 : PUSH ITCBSK < addr — - > 

4 J ITCBSPP ITCBSTL PUSH ; 

U : POP... I TCBSK ( — addr > 2 ITCBSPP ITCBSHD PDF' ; 

6 

/ : PUSH 1 BSK ( addr 

B 3 I BSPP IBSTL PUSH ; 

9 : P 0 P IB S K < - - a d d r > 

jO 4 I BSPP IB SHE) PGP $ 

1 I 
\ 2 
:i 3 

t /I 

.1 - t 

1 3 


L I. S i 

O ( PUSH AN ASK PROCEDURE) 

:l 

2 : PUSH AN ASK ( addr ptr — ) 

t >p DUP SAP OS r © I AN Ah Ud * • 

4 DUP SAFOS ASCN + + W© I ANAFOS ASCN •+■ * U 3 4 5 6 7 8 9 * 11 

5 DUP SNFOS + C© I ANNFOS + C ! 

6 PNFOS + C© I ANRPNFGS + C! 

7 0 R> ANTPNFGS + C! ; 

8 

9 : TEST ANASK < “ > 

JO " AN ASP F' DUP © ANLCN + DUP ROT ! AN AST L © > 

j I IF 5 MAILBOX ERROS + 1 THEN ; 

1 2 
1 3 
.1 4 
1 5 


I. I S T 

0 ( QUEUE OF'EIRAT I ON 1 , QUEUE IN - JOIN QUEUE) 

1 

3 : ? QUEUE FULL ( IN OUT — ■ -f ) 

4 A SWAP © ASCN + 0 = ; 

i 

6 : ENIER QUEUE: < addr HD TL IN — ■ > 

7 DUP DUP @ ASCN + SWAP ! >R ROT I © ' R> DUP (§ 

8 if SWAP © ASCN - SWAP ! ELSE DROP DROP THEN 

9 

JO : QUEUED IN ( addr HD T L IN NUMB IN GUI 

11 ^ QUEUE FUL.l... IF MAILBOX ERROS + 1 

1 2 ELSE DROP ENTER... QUEiUE THEN ; 

1 3 
i 4 


ROT © = 
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nj DOSED hPTib OiiPS / I RW/ MSP C 


i / o i / o o 


UB 6 SK i. poi. 


■3 LIST 

0 queue OPERATION 2, QUEUE _ OUT 


vJ 
6 
/ 
8 
9 
i O 
1 1 
1 2 
1 3 

1 4 
1 O 


SERVE QUEUE) 


t> 


DUP DIJP DUP 


•'•QUEUE EMPTY < IN OUT ® SWAP @ 

DELETE QUEUE < HD TL OUT acidr > 

(cj a SC 1-4 + SWAP 1 & @ >R DUP @ ROT @ - 
IF SWAP <i A SCM - SWAP ! ELSE DROP DROP THEN R> 
QUEUE! OUT ( HD TL OUT NUMB IN OUT — adclr > 

7QIJEUE . EMPTY IF MAILBOX ERROS + 1 
ELSE DROP DELETE QUEUE THEN ; 


1 1 Si 


JOIN & SERVE OPERATION ON QUEUE 

( adclr ) 


w », 

1 HEX 

QUEUE IN OBSK 


3 


CBSHD CBS XL. C 

4 

2 

QUEUE _ OUT CBSK 

rr 

sJ 


CBSHD CBS TL CB 

6 

2 

QUEUE . I N RCBSK 

7 


RCBSHD RGBS XL 

8 

: 

QUEUE OUT RCBSK 

9 


RCBSHD RCBSTL 

10 

: 

QUEUE IN WF ASK 

1 1 


WFASHD WPASXL 

1 2 

: 

QUEUE _ OUT WF ASK 

1 4 

i r:: ; 


WFASHD WPASXL 


( — adclr ) 

T 7 CBS IN CBSQT 
( ad dr — ) 


( — adclr ) 

RGBS OT 9 RGBS IN R CBSQT 
( addr — > 

4F AS I N A WP AS I N WPASUI 
( — addr ) 


QUEUE IN ; 

QUEUE OUT ; 
if QUEUE IN ; 
QUEUE OU I 

queue: IN ; 

QUEUE OU I 


■ O LIST 


0 < WORD DEFINITIONS 

1 HEX 


i o 

1 1 

:1 2 

1 3 


;■ B h A C K ( a d d T C add I B 

I CVR 


! S A 0 N 
1 SNCN 


- COMMON DEFINE WORD SL 6-01-89 
) PUSH 1 BSK F'USH _ I TC 


( — addTC a d d I B ) 

POP ITCBSK 


PDF 


I BSK 


OVER T BAP OS + OVER SWAP ! 


OVER HL.CN SWAP' TBLPOS + W ! 


F 013 1C W@ SACNH W! F0131E € SACNL ' 

O MAILBOX MBSNCNOS + ! : 


v F OF 


..BSK 



UboHk- i poi 


BASED BPMS AMPS/ I RW/ MSEl, t 


1 I I SI 


O < WORD DEFINITIONS COMMON DEFINE WORD SL 6-01-89) 

J 


4 


o 

v..‘ 


i o 
1 l 
12 

13 

14 
1 3 


PACKET •: PN At DAH DAL ad dr — > 

> R I DAFOS •! 2 + ' 

I DA F OB i W ! 

SACNL © I SAFOS + 2 + 1 
SAC NH W© I SAF'OS + W! 

I AKFOS + C! 

I PNFOS + C 1 

SNCN © R> SNFOS + Ci 


LIST 

0 ( SEN UP MAIL. BOX > 

1 

2 : GET NAME < — > 

3 MAIL-BOX MBSNCNOS + © SNCN ' ; 

4 

5 : MAILBOX SET UP < ? 

6 MAILBOX >R 

7 O I NEWBUF + 1 0 I OLDBUF + ! 

9 O R> ERR OS ■+• ! ; 

9 

1 0 
I i 
1 2 

:i 3 


J 4 

1 f j 


LIST 

O * KERNEL CALL RECEIVE , 
.1 HEX 

3 : KEL RECV i ad dr -- 


4 


r sp b 


■+■ 0 


6 


1 0 
1 3 
1 2 

] 4 
1 V 


KEi XMI'l < ad dr — 
rsp I j O A + £ 

j! 

KEL TIMEOUT ( ad dr 
rsp I.) OE + © 


IRANBMIT, TIMEOUT SUBROUTINE 

} 

call enp DROP DROP ; 

) 

call e np DROP QUEUE I N WF ASK 


) 

cal 1 enp DROP DROP ; 
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i ,» -ibfc- u 


UBobiv i 


puJ V L UK 1 i 


•: i',,- 


•r. r- 1 1 i m h P b / i K W / M h F L 1 / *- 1 1 " 


2064 1 IS! 

0 OPERATION OF IBSk , NEW, OLD BUFFER) HEX 

.1. 

2 : ' chkriew MAILBOX NEWBUF + © NUT IF PDF'... IBSK 
t, OFFFF AND CO 000 + MAILBOX NEWBUF" + ! THEN ; 

4 . t.hkol c:l MAILBOX OLDBUF + © IF MAILBOX OLDBUF + © PUSH.. IBS! 
r-- ( O MAILBOX OLDBUF + 1 THEN ; 


8 

i o 
i 1 
I 2 
1 3 

:i 4 
:( 5 


L i S'i 


0 ( FREE MEMORY SPACE 

J 


PL ACE A NULL WORD SL. 6-U5- 8 V ) 


3 : ©FREE:’ ; 

4 

c:: 

6 

“/ 

8 

9 
10 
1 i 
1 2 
i 3 
3 4 




I 1ST 


O ( DEFINE CONSTANT 2) HEX 


1 


1 O 
1 1 
3 2 
1 3 
14 


-08004 CONSTANT BASEADD O CONSTANT EPSC 


10 CONSTANT ANACN 
100 CONSTANT BLCN 0 

1 4 CONSTANT ITCBSCN 

4 0 C O N S ' I A N T X 14 IT N 1 

j 0 CONSTANT TOC BLCN 
34 CONSTANT WFASCN 
OC CONSTANT RML.FOS 

2 2 C O N S T A N T I C B L C N 
I 0 CONSTANT RCBLCN 
20 CONSTANT 1CBLCN 
O CONSTANT TDSET 


20 CONSTANT BCN 
5 CONSTANT CBSCN 

IS CONSTANT IRBLCN 
0 CONSTANT TCBCN 

08 CONSTANT TOS'AFOS 

10 CONSTANT RCBCN 
10 CONSTANT TCBLCN 
38 CONSTANT HA J LCN 
2 CONSTANT TOCN 
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22 CONSTANT I TCBLCN 


14 CONSTANT RCBSCN 
08 CONSTANT SC BLCN 


3 0 



0B6SK- 1 p 


i:' B o v .. ‘ *. ■* B f t b t~ . I .■ bi I* ' H 6 


AMPS/ 'TRW/MSFC 


/o i / oc> 


2067 L I S 1 

o ( DEFINE VARIABLE 2 SL 6-05-89) 

.1 

2 VARIABLE BIJFVR 
: V A R I A B L E t m e m 

4 VARIABLE SCBUF VARIABLE ICBUF 

5 VARIABLE i 


B 
9 
1 0 
1 1 
1 2 
1 3 
:i 4 
1. 5 


20<SB LIST 


0 

i 


HAKE S'f ALLS , 


I TCBSK IBSK ANASK STACKS) HEX 


3 : MKSTACKS ( — > 

4 BASEADD 

5 DUP ITCBSHD ! DUP ASCN - ITCBSPP ! 

6 I T CBS CM ASCN * + DUP ASCN - ITCBSTL 

7 DUP IBSHD ! DUP ASCN - IBSPP ! 

a ecu ascn * + dup ascn - ibstl 1 

9 DUP ANASHD ! DUP ANL..CN ~ ANASF'P ! 

10 ANACN ANL..CN * + DUP ANLCN - ANAS 1 L 1 

1 j BUFVR 1 ; 

3 2 
1 3 
3 4 
I 5 


2 069 LIST 

O ( HAKE QUEUES, CBSK RCBSK WF ASK QUEUES) HEX 


4 


3. 0 

3 3 
12 
3 3 
3 4 

3 5 


HI QUEUES ( — > 

BUFVR 0 DUP CBSHD ' DUP 
CBSCN ASCN * + DUP ASCN - 
DUP RCBSHD ! DUP RGBS IN ! 
R CBSCN ASCN *■ + DUP ASCN 
DUP WF- AS HD ' DUP WFASIN ! 
WF ASCN ASCN * + DUP ASCN 
BUFVR 1 ; 


CBS IN I DUP CBSOT 1 
CBS 1 1 1 

DUP R CBSOT ! 

- RCBSTL ! 

D U F' W F A S 0 T ! 

- WF AS TL ! 
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CD Cr- 


Ub6fc<K i 


pol yF Of 


j I | ji -i p j > p) H I I S i \ I S l"'* w) / i R W / MSP C 


1 / O 1 / OO 


L IS I 

0 •: MAKE BUFFERS - RCBK , TCBK, IBSK BUFFER) 

1 

3 : MKBK ( addr — addr ) 

q RCBCN 0 DO DUP QUEUE IN RCBSK RCBLCN 

5 TCBCN 0 DO DLJP PUSH ITCBSK TCBLCN + 



BCN 

O DO DUP 

PUSH IBSK BLCN + 

7 : 

1 1 S I BUF 

( addr 

— addr ) 

8 

DUP 

TOBUF 1 T< 

3CBl.CN + 

9 

DLJP 

SCBUF ' SI 

3BL.CN -i 

1 0 

DUP 

ICBUF ! II 

CBL.CN + ; 

i i 

i M 

i m 

MKBUF F : E 


) BIJFVR @ MKBK 


1 3 

14 

1 5 


1 3. ST 

0 ( i r i :l t i a 3. i z e bu t 1 er s > 

J. 

2 : but i rii t MKSTACKS NK QUEUES MKBIJFF ERS ; 
4 


i 0 
1 J 
i 2 
1 3 
:i 4 
j 3 


L 1 SI 

0 EXIT 

1 


4 


1 0 
1 1 
1 2 
X 3 
1 4 


+ LOOP 
LOOP 


I BUF BUFVR 1 
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)00 BASED SPMS AMPS/TRW/MSFC 1/01/00 


UB68K - 1 pol yT Ur 


LIST 

0 EXIT 

1 


4 


8 


1 0 
1 1 
1 2 
1 3 

14 

15 


4 LIST 


SL 


89 ) 


0 t 1.6 CALL KERNEL. RECEIVE RING FILL. — 

1 HEX 

2 : RING.. FILL « TEMP — TEMP t > 

3 DUP RCBSOT @ - IF TRUE 

4 ELSE QUEUE OUT...RCBSK DUP 

ir.- Bl.CN SWAP RBLFOS + W : 

DUP POP IBSK SWAP RBAFUS + ! 

rsp b 06 + 0 cal .1 _enp DROP DROP' 

FAL.SE THEN ; 
d o r -f i. I 1 ( ' 

RGBS IN @ 

BEGIN RING FILL TRUE « UNTIL DRLiP 


6 

-j 

/ 

8 

9 

10 

1 1 
1 2 
1 2 
i 4 
.1 5 


0 ( l./ NETWORK INITIALIZATION PROCEDURE 1 ~~ SL 5 oJ 

1 HEX 

3 : BOAS' 'f I NIT < ad dr — > 

4 >R 

r, 0 NICN FF FT FFFFFFFF 

6 R > 

7 FILL... PACKET ; 


i. O 

l i 
12 

1 3 

14 

15 


95 


<i on 


Ubobk -I puJ vr 


OAbb.D SPMb Al IPS t RW/Mbr 


I 8 i 


0 ( , . ; NETWORK INITIALIZATION PROCEDURE 2 - - SL 5-31-89 

1 HEX 

: .'8 i AT ERR ( add TC - add TC ) 

^ ’ ' r « p b OA + <* call enp DROP' GJLIEUE^I N ... .WFASK 

5 BEGIN WFASIN WPASO T 7QUEUE_ EMPTY NOT UNTIL 

6 QUEUE OU ! WFASK DUP TBSFOS + W@ 

IXVTLRRCN AND 0 - FLAG ! FLAG $ MAILBOX FLOB + ! 

8 ; 

I o 

:i i 

1 2 
i > 

.1 ■<) 

i S 

L 1 S I 

E X 1 I 


7 


1 0 
j :i 
1 2 
] 3 
i d 


I J 8 T 

0 i i Ni l lALlZA'T ION 


NL 1 PJGE K I N 1 I 1 AL 1 Zb 


SL 6"“0. 


4 


! O 
1 i 

i. 2 

I 3 


HE X 

: NEilNii < 

> j r;VR < TC ad dr I Bad dr ) 

Bi.Ab ! .1. N 1 1 

DUP TBSFOS + 2300 SWAP W 1 
r>tJF * OC ( * O SWAP W { 

XML! I O DO 

i > !. I p 3 i hi A D ! i T e a t j n q q r r . j u r a n i > 

B I A ! ERR {• LAG 0: IE I....E.AVE THEN 

LOOP 

E L. Ao 0 1 E CUE OB ... IN UiiHABK 

ELBE. 0 HA i LRUX EKPOS 
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*+■ 


T HEN ? 



AMPS/ 1 RW/ MsE C 


i.vfiHt. i) bPni 


0B68K- 1 p a l y r OR I H / 3:.c 


I 1ST 


INITIALIZATION 1.8 XMITTER TIMEOUT bl. 


: ‘XM TIMEOUT ( — - > 

TOBUF (i BUP RTFOS + TOSET SWAP W ! 
BLIP TOFOS + TOON SWAP W ! 

KEL TIMEOUT ; 


i 1 
;i 2 

i 3 
1 4 
1 5 


■■;!080 I I S I 

0 ( INITIALIZATION FILL 0 TO MEMORY LOCATION SL 6-09-89) 

1 HEX 

3 : I MEM 

4 JTCBSCN ASCN * BCN ASCN_* + 

5 AN AON ANL.CN * + CBSCN ASCN * + 

6 R CBSCN ASCN * + WF ASCN ASCN * + 

7 RCBCN RCBLCN * + TCBCN TCBLCN * + 

0 EOT BLCN * + 14 ASCN * + 1 4 ASCN * + ASCN + 

9 t mem ! ; 

10 : >:i mem I MEM BASE ADD t mem (4 0 FILL ; 

1 1 
1 2 

.1 3 
1 4 


0 E X l ! 

1 


4 


B 

O 

I o 

I I 

I 2 
1 3 
3 4 
3 3 


. . ,- 32 IS 

y*i 0UAL1TY 
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<1 CO 



2082 L I S i 

0 EXIT 
.1 


4 


B 

V 

i o 
i i 
1 2 

1 3 
1 4 
15 


2083 LIST 

0 ( I E S T .1 Hi 3 I N I T I AL I Z AT I ON ST ATE Si... & 2 - B V > 

:l 

2 : RUN I NIT 

3 0 tp ! 

4 O r t mp ! 

5 0 rvbo>i 1 

t> ! SACN ! SNCN 

7 MAILBOX BET JJP GE T NAME- 

MAIL BOX MBSNCNOS + @ EPBC - IF NELL Nil I HEN 

J XM T I ME'. OUT 

10 1 MAILBOX RDFGQS •+ \ _ _ 

1 ;[ SACNH We MAILBOX sah + W! SAC ML. @ MAILBOX sal + 

J 2 
1 3 
1 4 


200 4 i ... I S I 

0 EXIT 

1 


1 O 
1 i 
I. 2 
1 3 
1 4 
15 
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> MHbhO 


BP MB uliPB / I RW/MSFC 1 / 0 i 


UB68K- I 


.[ b i 

0 EXIT 


4 


8 

9 

i o 

i i 
12 
1 

:i. 4 


1. I S'! 

0 EXIT 

1 

4 


7 

8 
9 

10 

i i 
12 
i 3 
1 4 
1 3 


1 .. i. b I 


4 


1 0 
i I 
i 2 
1 3 
1 4 


p O 1 


99 


po! y l~Uh: ' H 


r:\Kjt.jij i>Hb 


Ei.) oPiiS AMPS /" I RW / MSP C 1 / O 1 


Ub 


bk - i 


88 US I 

0 EXIT 

1 


4 


B 
9 
1 0 
1 .1 

1 2 
1 3 
J 4 
I '4 


:>B9 UbT 

0 EXIT 


4 

c:: 

,, r 

5 
7 
9 
9 

1 0 
1 1 
1 2 
j 3 
i 4 
1 5 


090 LIST 


0 ( RECEIVE STATE 2.1 RECEIVE ACKNOWLEDGEMENT BL 6 01-89) 

1 - PACK Ql JE OUT ( addEB temp — addRB temp ) 

2 >R >R QUEUE GUT. WFASK DUP TBAFGS + @ DIJP L..DFOS + C@ 

3 i SNF OS C® = IF DUP PNFOS + C© I PNFGS + C® 

a r>l IF' O <’ SWAP DUP 0 == ROT OR SWAP -4 > AND 

5 IF >B BACK 

6 ELBE DROP QUEUE IN WFASK THEN 

? ELSE DROP QUEUE IN WFASK THEN R> R> ; 


O 


1 o 

:i l 

1 2 
1 3 
j. 4 


ACK RECV < addRB — > 

WF AS I N @ 

BE: 6 :i M 

S)UF' WF ABO T & = IF TRUE 

ELSE PACK QUE OUT FALSE THEN 

I IN ! I L. DROP PUSH 1 BSK ; 

100 


OK 


•f -■ - . ■ 



UTY 



H | ; -I S E. I ) 3 P 1 i 3 A M 1“" 


T RW/ MSFL: 


0 i„) 


L i B 6 8 K - 1 p o I V F 0 R T H / 3 2 


0 E:; X J 1 

1 


4 


8 

1 0 
1 :i 
1 2 

.1. 3 

j 4 
1 5 


i 


6 

7 

8 
9 

10 

■i -i 

i \ 

1 2 


RECEIVE: STATE — 2.2 RECEIVE COMMAND 3L 6-01-89) 

BENE RATE ACK < addRB — > 

>THVR ( •• addTC add It' ) . : H 

SWAP DUE PMFOS + C@ AKCN 
RO I SAP OS + DUP ASCN + W‘~ SWAP V 
R > F I L. L P AC K E 1 K E l .... X M I T ; 

CHI- COMMAND ( addRB pointer > .. 

"aNRPNFOS + DUP C@ ROT DUP PNFOS + C@ RO I SWAP OVER « 
If j + ROT C! DUP QUEUE IN CBSK GENERATE ...ACK 


ELBE OVER PUSH IBSK OVER PNFOS + C@ SWAP - DUP O < 
I!" > AND IF GENERATE Act ELSE DROP THEN DROP THEN ; 


i o 


] S'! 

o ( receive: s i a i e 

•} 

.i 


2 . 2 EE.CE I V E:.. COMMAND SL 6-0 1 -89 > 


I 0 
J J 
1 2 
1 3 
1 A 


B E A R C H C; L; |\| ( a d d R B > 

DUP SNFOS + >R 

ANmSHD ii! 

BEG I M 

DUP ANASPP © 2 IF 

DROP PUSH I BSP TRUE 
ELBE DUP ANNFOS + C@ I ^ 

CHK COMMAND TRUE 
ELSE ANL.CN + FALSE THEN THEN 
UNTIL E> DROP ; 


IF 


•■••it: CPA>J7Y 
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UDodK ■ .1 pui A-UH \ H/ 32 


S>l : 


3h It 


bhi ib HliES/ IRW/HSHC i 


,) y 


>09 4 L IS I 


RECE I VE COMMAND 


0 < RECEIVE STATE 2 

1 

- rrKi RECV < addRB — • 

Z ’ CBS IN CBSOT 7QUEUE FULL IE 


4 


EL BE 


T HEN 


=■ SEARCH CCN 


SL.. 6-01-89) 
PtJSH„.IBSK 


B 


:J 0 
i 1 
1 2 
I 3 
1 4 
i 5 


0 E X I I 


6 

7 

8 
9 

1 0 
i i 
.1 2 
j 

1 4 
i ■ “« 


0 e x i r 

1 


kJ 

V.J 

J 0 
1 1 
i 2 
. 1 . 3 
1 4 
1 3 
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6Hi.>00 BASED SPITS AMPS /TRW /MSEC 1/ul / uu 


JB6SK.--1 K" • r L iR t H 


097 LI3I 


0 EX'. I I 

1 


RECEIVE STATE 


3 RECEIVE N1CN, N I ACN SL 


6 0 1 -89 


■ANASK FOUND ( addRB . — addRB > 

DUP DUP SNFOS + C<§ >R AN ASH. U 
BEG .1. N . r , ..... ..... 

DUP ANASPP €• > If 1 f -- b 1 ANho J : : ^ !5 : : 

E1.SE DUP ANN FOB + C@ I =:s 1 KUh. 

ELSE ANL.CN + F ALSE THEN I HEN 
UNTIL R > DROP PUSH. ..AN ASK. ; 


0 < RECEIVE STATE 

1 HEX 


2.3 R 


ECEIVE NICN SL 6-01-89) 


: VIS NICN ( addRB 

VIGOR < 


addRB > 

add I C add IB ) 


■:p AVER SNFOS + C@ I LDFOS + C! _ 

OVER O N I ACN ROT SAFOS + DUP ASCN + Wo oWAE u 

1 cal 1 enp DROP QUEUE. IN WFASK 
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UboBL i 


DASbD bFTib Al'IP 


I RW/ I'ibb L 


U 1 


2100 I. IS I 

0 ( RECEIVE STATE 2.3 RECEIVE NICN 

1 

3 : NICN CHK ( addRB — > 

4 ? AN ASK... FOUND 

5 ? I S N I CN 

6 PUSH I BSK 


I 0 

1 1 
1 2 

:i 3 
.1 4 

15 


2101 LIST 

R E C E I V E S T A I E 2 . 3 REC E I V E N I A C 


N I ACN CHK ( addRB 

DDF' GENERATE... ACK 

2ANA8K FOUND 

PUSH :i BSK 


2102 LIST 

0 ■: RECEIVE STATE - 2.3 RECEIVE NICE 

1 


0 i; 

1 

4 

l:: 

* 

6 

■”7 

8 

9 
1 O 
i i 
1 2 

1 3 
! 4 
:l r. 


:■!. u :l. CLEAR WE ASK ( — > 

4 WFASIN <3 

f> BEGIN 

6 DUP WFASOT <3 ~ DUP IF 

/ ELSE QUEUE OUT ...WF ASK DUP 

R > B BA C K T H E N 

9 UN I IL DROP' 5 

1 O 
] 1 
1 2 
1 3 
1 4 
1 5 


SL 6 01 89) 


N SL 6—01—S9) 


SL 6-01-89) 


TBAFQS + <3 


104 



OU'.M >U 


B Pi BED 


>PMS AMPS/ TRW / MSFC 1 / 0 1 / 00 


0B6SK-- 1 


2 103 l I S I 


0 ( RECEIVE STATE — 2.3 RECEIVE NICE SL 6-01-8?) 

1 


3 : 2 CL EAR RCBSK ( — > 

4 RGBS IN @ 

5 BEGIN 

6 DUP RGB SOT @ DU P IF 

7 ELSE 

8 RCBSHD RCBSTL RCBSOT 21 RGBS IN RCBSCJT 

9 r sp b 6 + @ call enp ‘DROP DROP 

10 THEN 

11 UNTIL DROP ; 

1 2 


QUEUE 


1. 4 
1 5 


2:104 LIST 

0 < RECEIVE STATE 2.3 RECEIVE N I CL BL. 6-Ol-SV 

1 

3 : 3CL EAR _CBSK ( — > 

4 CBS IN @ 

5 BEGIN 

6 DUP CBSOT @ ~ DUP IF 

7 ELSE QUEUE OUT CBSK PUSH I BSK T HEN 

8 UNTIL DROP 3 4 * 6 7 8 9 10 * 12 * * 15 ; 

9 

i o 

i j 
1 2 
1 3 
1 4 


0 < RECEIVE STATE 2.3 RECEIVE MICE SL 6-01-89 

1 

3 : CLEAR PROTOCOL ( add RB — > 

4 D U F* 0 E N E R A T E A C K 

3 1 CLEAR.... WF ASK 

6 AN ASH D @ ANL.CN - ANASPP ‘ 

7 2CLEAR. RCBSK 

8 3 C L E A R C B S K 

9 PUSH. I BSK 

1 0 

l i 

12 

i 3 

1 4 

15 


pol y F UR S H/ 32 


OUT 
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ir;ot.L- bi 'l ib AhiPb / I RW/ MbF 


LJH6dk • .i pul 


0 E X 1 I 

1 


4 


i 0 
:t JL 
3. 2 

i 3 

i 4 


:i 1 


i 1 Si 


o ( RECEIVE STATE OPERATION 1 SL 6-0i~89> 

J 

3 : COMMAND O. OUT < sdcIRB AKFd B I A I ) 


4 EC DSHD RCBSTL RCBSOT 25 RGBS IN RCBSOT QUEUE OUT 

5 UUP RBAFOS + DUP 

i O SWAP' POP I BSP SWAP 1 1 SWAP' DUP 

7 E B B F U £> ■+■ W ® S l- J me P 

B rsp b 6 + 0 cal l j?np DROP DKUF* 

9 OVE-R AKFGB + SWAP ; 

10 

1 1 
i 2 

1 4 
1 3 

2 I OS I TS1 


i' 1 1 

1 

REi F 1 VP SIP 

iTE 01 

■'ERA! ION 2 

g |_ B — o \ — 8 9 ) 

3 : 

?AKFd CHK 

{ 

addRB AKF d 

) 

4 

DUP 

AKC 

N = IF DROP 

ACK RECV 

3 

ELSE 

DUP 

CCN = IF 

DROP CCN RECV 


EI...SE 

DUP 

N I CPI = IF 

DROP NICN CHK 


ELBE 

DUP 

NICE « IF 

DROP CLEAR PROTOCOL 

8 

ELSE 

NIACN = IF 

N I ACN ...CHK 

Q 

ELBE 

PU 

SH ... I BSK 


1 0 

1 WEN 

THEM 

THEN THEN 

THEN : 


i 1 
1 2 
1 3 
1 4 
i 3 


y F UK I i i / -3 
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,i ,fc:i >oO BASED 


SF'MS AMP S / T R W / MS F C 


3. / 0 1 / 00 


0B6SK— : 


2 3. 09 i .. I ST 

O ( receive massage) HEX 
] A0478 CONSTANT tp„ tai 1 

2 : i nc r head ( ) 

3 head r <§ 4 head r - 0- 

4 IF r b c b ELSE head_r © 4 + 

5 THEN head r ! ; 

w 

7 : niBq com ( — > 

Q t a ;i 1 r & t p t ail 1 h © * d r 

9 BEGIN 

!0 DUP © tp tail © - 0* IF 1 ELSE DUP © © QUEUE _ 

13 i nc r _ I ‘iead 0 THEN 

3.2 UNTIL DROP ; 

30 : dsply. msg OVER trans ! A3000 recrv I 20 0 DO t 
34 recrv © W ! recrv © 2 + recrv ! trans © 2 + tran 
3 


0 (. R E C E I V E S T A T E 0 P E R A 7 1 0 N S L. b ~ 0 3. - 8 9 ) 

1 » r pc v sk ( ) 

2 niBi] com 

3 RGB SIN @ 

<1 BEGIN 

f, DUP RCBSOT © = DUP IF ELSE 

6 RCBSOT © © rvbox ! ( test for recv msg) 

7 COMMAND 0 OUT RCVERRCN AND NOT IF dsply. msg 

8 ELSE DROP PUSH IBSK THEN 

9 THEN 

10 UNTIL DROP 

1 3 ; 

12 
3 3 
3 4 
1 U 


2 1 1 1 L 1 3 I 

0 EX 3 I 




& 

o 

1 0 
1 1 
12 

.1 3 

1 A 


i pol yFGR 1 H 


I N__RCBSK 

rans @ W€l 
s f LOOP ; 


?AKFd CHK 
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pl.J.I yt UK \ i 


i..T ibLu bRilb A l ih'b/ I Kl 


4- l; i , o j 


ubti 


O EXIT 

3 


4 


8 

r". 

1 0 
1 1 
1 2 
.1 5 
1 4 
.15 


O ( ']' RANSM 1 T STATE - DE r .F I ME VAR I ABLE — FLAGS 

3 

2 HEX 

3 8000 CONST AMT TOBQNE 

4 

L"' 

t J 
6 

7 

8 
9 

1 0 
1 3 
1 2 

3. 3 

3 4 
1 5 


2 3.14 LIST 


0 < I RANSM IT STATE SEARCH AMASK 1 SL h~31- 

3 

3 : PACKET FOUND ( add TC addlB temp® 

4 3 WAP >F< >R I ANTPNFOS + DUE C<§ 

5 DUE 1 + ROT r; ! CCN 

6 R ANAFOS + DUE ASCN + W@ SWAP @ R> 

? F ILL PACKET 

8 KEL . .. XMI T 


:l 0 

1 3 
i 2 
1 3 
1 4 
1 5 


L 5-31-89) 


89) 

) 
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nj BrSED BPMS AMF’S/TRW/MSFC 1 / v i . / V 


I. 1ST 

O ( TRANSMIT STATE SEARCH AN ASK 2 

J 

2 : -I SEARCH < add TC add IB LDVR temp© 

3 DUP ANASPP © IF DROP DROP 

4 EL SE OVER OVER ANNFOS + C@ = 

5 IF SWAP DROP PACKET FOUND TRUE 

6 EL SE ANL..CN + FALSE THEN THEN ; 

8 : SEARCH AN ASK < addTC add IB — > 

9 DUP LDF'OS + ANASHD 

10 BEGIN 

1 i ‘-f SEARCH 

1.2 UNTIL ; 

1 3 
1 4 
1 5 


! 1ST 


Ub68E -• X pul yFOR i r 


SL 5 31-89) 

-« f ) 

> B BACK TRUE. 


0 ( TRAI 

•ISM I T STATE - 

->*' m 1 

MAE 

E PAC 

;KET SL 5-31 -•89) 

1 HEX 






2 : MATT 

packet 

— 

■» 



3 

POP 1TCBSL 

DUP 

F BaE 

OS + 

MAILBOX SBADOS + © 

4 

OVER TBLFOS OV 

ER L 

LF OS 

-I- C (a HLCN + SWAP W ! 

5 

OVER TBSFOS + 23 

00 c: 

.WAP l- 

■J 1 

6 

OVER OC + 

0 SWAP 

w 1 



~7 

0 MAILBOX 

SBF'GQ 

s + 

i 


o 

DROP KEL_; 

KM I T 




9 ( 

SEARCH. ANASK 

'l 




10 

1 1 

1 2 
i. 3 

1 4 

1 !:.‘i 


i I S I 

< TRANSMIT STATE OPERATION --- SL 5-3 1-89) 

;l 

2 HEX 

3 : ;-i m i t b t ( — > 

4 MAILBOX SBFGGS + & 1 IF' ITCBSPP & I I CBS HD & “ L 

5 0 >i done ! 

6 MAKE. PACKET MAILBOX SBADOS + @ MAILBOX OLDBUF + • 

7 MAILBOX SBADOS + @ MAILBOX oldtmp + 1 

8 I HEN THEN 

9 tp @ mhx ! tp C* 1 + tp 1 ; 

1 0 

1 :l 
1 2 

1 3 

14 
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1 1 h6fc< I . i 


omw isHlib hI'IFB/ I HW/MBhL 1/Ui/UU 


pul yhuk I H 


2118 I IS I 

0 ( TRANSMIT STATE TESTING 6-12-89 LAM) 

;i EXIT 


4 


8 

"7 

i o 
1 1 
1 2 
1 3 
1 4 
1 5 


2:119 LIST 

0 EXIT 

1 


4 

5 

6 

7 

8 
9 

1 0 
1 1 

1. 2 

1 4 

i *:♦ . 

J. •— 1 


0 EXIT 

1 


4 


i O 
1 1 
1 2 
1 3 
1 4 
15 
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6 SO 0 O BASE: L> 


b P M B A M P B / I F : \ W / M b F C ) 


LI C 6 B K 1 p o 1 y F- L j R I H / 3 ■ : 


0 EXIT 

3 


4 


3. O 
1 1 
12 
1 3 
1 4 
i. 5 


L 1ST 

O ( CLEAN UP STATE: — REMOVE- ACK, INI 7 PACKE T SI. 5--31 

3 . 

3 : F : ’M ACE- 1NIT ( - add It- add IB AKF-d > 

4 QUEUE OUT WF : 'ASK DUF* TBAFOS * © DUE-' AKFOS + C© 

r. : i DUF* rtrnp 1 ; 

6 : LOUP REMOVE ( > 

7 RM ACK I NIT 

8 DUE’ AKCN -■ SWAP N1CN DR DUP recrv 1 IF B BALT- 

9 ELSE DROP QUEUE „ IN .WFASK THEN ; 

1 0 

3 . 1 
1 2 
i 3 
3 4 
:l o 


i is i 


0 ( CLEAN UP STATE OPERATION - - SL 6-06-89) 

1 


4 

1.3 

Cl 


8 

3 0 
1 3 
12 
13 
3 4 
1 5 


WFASIN © 

REG I N 

DUP WFASOT © - DUP IF 

ELSE LOOP REMOVE T HEN 
UNTIL DROP ; 


111 



.nj bnbbD SPITS AMPS /'I RW/MSFC 


UB6BK i poi yPUK I H 


1 /Oi /00 


L I S I 

0 EXIT 
J 


4 


8 


I O 
1 .1 
J. 2 

1 3 
1 4 


L i Si 


O ( I I ME DU I STATE -- TIMEOUT INTERNAL LOOP 


1 


4 


6 

“7 

8 

9 

1 0 
1 1 

i 2 
i > 
:i 4 


HE X 

: N E G A K V R: ( a d d I B A K F d -■ - > 

NEGATE SWAP AKF08 + C 1 ; 

l I I ME E LOOP ( > 

QUEUE OUT WFASK DUP TBAFOS + S 

DUP AKFOS + C0 DUE' 80 AND 0 > 

I F NEG AKVR KEL .... XM I T 

ELSE NEB AKVR QUEUE I N WFASK THEN ; 


: TIMEOUT ( - > 

W FAS I N ® 

BEGIN 

DUP WFASOT @ DUP IF 
ELSE T I MER LOOP THEN 

UNTIL DROP ; 


UQ » 


L .1 S i 

O ( I I ME OUT STATE OPERATION — 8L 5-31-89) 

:i 

3 : t ou i s»t < — > 

4 TOBUF & RTFOS + DUE 1 W(§ TO DONE! AND IF 

5 O SWAP W! < TIMEOUT ELSE DROP THEN ; 


J 0 
1 1 

:i 2 

I 3 
3 4 

1 5 
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:>UU Bi-sUB .1) oRMb tiM P 


i RW/MSFC 3 / 01 /OO 


O B 6 Id K " • 1 p o i. y F U R i H / 2 


2127 LIST 

O EXIT 


4 


1. 0 
1 1 
i 2 
13 

5 4 


2 :i 


L J. S I 


0 { LOAD PROTOCOL.. - SL 7/ 18/89 

1 

2 2050 212 • THRU 


B 

Cl 

i 0 

1 1 
12 

1 3 
3 4 
15 
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UBtodk i 


p i...‘ I ykUh I H 


jttJUU Ur idb 1/ bk'lib i ll ik'd/ I KW/MbKJ i ' J 


2148 I :tsi 


o 




4 


6 


1 0 
.1 1 
1 2 
1 3 
1 4 
1 5 


:i 4 9 i I S I 


0 ( DEFINE. NAIL BOX OFFSET > HEX 

1 2 0 2 3 0 C 0 N S I A N 7 M A I L B 0 X 

2 O CONSTANT SBFGOS 

3 4 CONSTANT EDFGGS 

A 8 CONSTANT SB ADOS 

5 OC CONS 7 ANT MBSNCNOS 

6 I O CONST ANT < a 1 i veDS 

7 14 CONSTANT EEROS 

8 IS CONSTANT NEWBUF 30 CONST ANT sal 2 

9 1C CONSTANT OLDBLJF 2C CONSTANT FLOS 

10 20 CONSTANT oicJtmp 24 CONSTANT sah 28 CONST A ITT sal 

11 16 CONSTANT DLFOS 20490 CONSTANT trans 

12 20 CONST ANT BON 20480 CONST ANT S i SAD 

1 3 20530 CONSTANT mbx 20430 CONSTANT rvhox 

IT VARIABLE tmphuf 204A0 CONSTANT recrv 204C8 CONSTANT rtmp 
15 204B0 CONSTANT SUBAD 20400 CONSTANT ST AD 


0 < Memory NAP: HSBC 1 and ENP 

1 

2 t >: Must to ENF’ commands) 

4 20006 CONST ANT >send 

5 2000C CONS T AN I - reset 

6 v 4 O '/ * > ( ! L.i N S I h N I > b c b 

7 24064 CONSTANT >tai 1 

8 2 4060 CONSTANT t bt 

9 8 O 8 0 C O N S T A N I G <:::* c in d 

I O 

I I OC CONSTANT AKFOS 

1 2 

1 3 OD 

14 

1 f. 


O I PC area) HEX 

20008 CONSTANT >sn d addr 

2 4 0 6 O C 0 N S T A N T > h ead 
2 4 O 6 8 C 0 N S T A N T _ f b h 

OF CONSTANT I DF OS 


CONSTANT SNFOb 


OE CONSTANT PNFOS 
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8 A B E D B F* I 1 * * * V 1 B A H P S / 1 R W / M b F L- 


0B&8K- i 


pol yFUR I H/ 32 


V.I 5 .1. LIST 

0 ( hi e rn o r y hi A F-’ ' s M B B C 1 a n d E N P — 3 0 I F' C a r e a ) hi E X 
J. ( < “ ENF' to Host commands) 

2 20024 CONST ANT < sdone 20026 CONSTANT < sndaddr 

3 2 3 9 0 0 C 0 N S T A N T < s t s ( s t a t u s fro rn E N F’ ) 

4 2000E CONSTANT >st at. us 2002A CONSTANT < st at us 

5 2002C CONSTANT <beb 20070 CONSTANT -(head 

6 20074 CONSTANT < tai 1 20078 CONSTANT f bh_ r 

7 2007 C CONSTANT fht r 

o 

9 2: 1 2 0 0 C 0 N S I A N i < d a t a ( < E N F* > 2 2 5 0 0 C 0 N S T ANT > d at a ( > ENF ) 

1 0 

1 J 28000 CONSTANT ‘enp C4000 CONSTANT enp 

1 2 < 28000 CONS i ANT enp f o r RAM t est j. nq ) 

1 2: ( F 8 8 0 0 0 0 0 N S T A N T ’ e 1 1 p f o r F' R 0 hi b a s e > 

14 < Chanqed F 86000 to F 88000 to ad just itartinq address for new 

10 :1.6k epr onib used for UAH ether net protocol ) 


102 LIST 

0 i Pol Hnq ENF' to Host Background task) 

J EXIF 

2 20 64 1.00 BACKGROUND < net data < data from network) 

3 20 64 150 BACKGROUND t dummy ( dummy task) 


6 

7 

8 
o 

7 

1 0 
1 1 
1 2 
1 3 


0 ( Pol J :i. i iq ENF’ to Host Background Task) HEX 

1 EXIT 

2 : bid enp < net data BUILD 

■ 5 t dummy BUILD ; 

4 VARIABLE Tl VARIABLE 12 VARIABLE 13 VARIABLE T4 

5 •: 711 Tl 0 . ; s ?T2 12 <§ . ; : ?T3 T3 @ . ; : ?T4 T4 & - ; 


1 0 

1 1 

1 2 

1 3 

1 4 
15 
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Uh6ok I 


pui yr UK I H 


Liriob U c>P‘! lb i ihf o ! h.W IT Sr i 


*. t * 

HSBC :i Et her net. 

da 

. a bt or 

a o e 

i n i t i - 1 1 

3. z at i on 

HE X 


1 ;; 

1 1 ; :i f:i to <bc:b 

44 

ER ASF 

< be 

b DUP < 

head ! 

! t a i 1 

i 

* 

V * 

i -f 3 aQb 4 < sdoi it 

- W 

0 <si 

cidcic 

r ! 0 :■ 

s n d a d d r 

! 0 

/Bend N ! ; 

;> ;; 

eraht <dat.a 1 

1 0 

1 0 * E 

FTAoF- 

> d a t. a 

1 1 0 3. 0 

* ER 

ASE ; 

4 s 

I n se i 1 3 0 * <: 


4 W ! 






r: 

- .J 15 

\~i (:i -r:. q t. I j. 0 '* t 

> ..{ ' 

1 1 « 






o ■ 

r ;; :i in i erab f 









1 0 0 Dl 

) :i. < 

j'O -.dat 

a I 

1 n set 

LOOP 



8 

1 0 0 Dt 

j :l < 

30 >d a t; 

a I 

1 n set 

LOOP 



9 

:io o r>i 

i ( 

tat a J 

1 i 0 

4 1 0 4 

4* <data 

1 b@ 

_ set LOOP 

( ) 

1 0 0 Dt 

3 > t; 

ta t a I 

1 1 0 

ft J. 0 4 

4 >dat a 

I b@ 

set LOOP ; 

:i r 

c ! m >t b 3 0 o DC 

1 I 

I 4 ;}. 3 0 

| -Jfr. 

d a t a 4 






I 

.1 .1. 0 « 

< dat 

a + ! L 

.OOP 



;: s 

-..data t 

: b r i , 

r 1 

• dat 

a OF 

I I 0 * 4 

tbt . 

r ! 

4 

:l : dat 

: a < 

;>f j. i 

\ ) «£;- 

4 ! ; 




0 s 

j. HSBC J i n i t :i. t c 

■ r ; 

i n i c 

hr i >f 

h i 4 l ag 

b ; E X I ! 

r 



i . I 3 1 


0 ( »• 

iSBL 3 


ENP30 r 

OH! TUN I CAT 

[ON f 

} REA DEF 

I N I 

1 I ONS ) 

HE: 

A 


1 ( t 

lESO 

LOG 

AT I ON At 

D DEPIN ITT 

INS t 

OR ST AT 

us 

CONTEO! 

. B 

L OCI-: ) 


. Of ) * 

n.nj L 

ONE 

TANT rnsb 

enp ( bt 

•' q i n r 

i n y o 4 

msb 

c:: 1 > e 

:-np 

. ’’t ( ) 


4 ' T iUHMU.I l i 

cat 

ion area 

) 








L < 2 OF 

0 2 

CON 

SLANT 7a 

I i ve 








6 20C 

06 r 

ONE 

TANT EdF 

A ( ready 

add > 

2uuOb 

CON 

ST ANT S 

?BE 

A ( send 

a cl cl 

7 A5F 

A.' CO 

INST 

ANT RdFq 

* }•■■ y“> /h r{ y 


5 ASA C 

:ons 

TANT SE 

jpg 

( send > 


8 V AF 

j ABL 

E S 

BAd < se 

rid bii f f ft 

add > 

VAR I AE 

T...E 

CBSHd k 

' t:: 

t:« u t 1 1 e c-t d 

I 

9 VAF 

;:r ABL 

E C 

BST3. ( <:: 

tnd but ta:i 

L 3. ) *V 

VARIABLE 

: cb 

iSIn ( c 

and 

but st k 

:i n > 

0 VAF 

I ABL 

E C 

BSOt ( c 

md but st. 1 

r: O t. i t 

) 






1 VAt 

I ABL. 

E 1 

BSHd ( i 

d ]. e I'j U 'f 1 "f t; 

: :-ad ) 

VAR I ABL 

E I 

BBT I ( 

:i d 

i e b u 4 t a 

3. 1 > 

2 VAF. 

1 ! hBL 

E I 

BSF :, p ( 3 

die but pi" 

i / p p ) 

V A R 3. AE 

iLE 

] BSRq \ 

! i 

d I e b u t r 

eq > 

3 VAF 

: 1 ABL 

E I 

BSLk ( i 

die but ,1c 

ic k ) 








:!. 3 


0 < HSBC 3 starting I he enp30 V- 1 0 89 dw> HEX 

1 « d e I a y ___ q o e n j: j 0 A F ' F F F : 0 D U L 0 0 R v 

2 : r Btenp „ " Init . Ether net Cirri- " CH delay qoenp J DF001 C ! ; 

3 s badenu C 1 002 CG DUP 0- IF ABORT " SELFTEST FAIL " 1 HEM ; 


: enptftiov ..V.* ■...»» > (. 

) DO I 

24 ei 

P f 

N(4 I 24 enp 4 W ! 

1 OOF' ; 

s qoenp istenp < 

lei ay 

qoenp L: 

a den 

P enp diov 


er ip 4 ■■ 

■ w@ r 

1004 W! 

en 

p 6 4 UJC4 Cl 006 W! 


BC>SCt 

: lenpsadr eiip 

i : I O • ) j 

^1 + w 

1 W ! ; 

i.o i , i ..*4 

- W! 

'enp 6 4 W>@ Cl 006 W! 

? 


E 0001 Ip 

W-3 DUE 

:>PF AND it 

0 4 SWAP' F'FOt 

AND 100 / OR ; 

:: w ! enp 

SNAP' DUP 

OFF AND :i 

OV s sWi-tl"’ FFt 

0 A N D 3. 0 0 / 0 R S W A F 

S (§FTip 

DUP 1 w$en 

p lOOOO * 

SNAF ' 24 wfelenp: 

OFt ; 

s { enp 

tDUP SNAP 

100 / 10 

•0 BN AF' o ! en 

Ip '+ bOrtl- 


tFFFF AND 

SNhF * la ! t/i i 





j. ;hsE-}j SFMB AMPS/ 'T RW/MSFC 1 /Oi / 00 UB68K~ 1 pul yP UR i H/32 


0 ( HSBC 1 communi cat i on words 02- 26-86 ) HEX 

1 : dmsq ; < display insq to CRT ) 

3 : :i. nc head ( ) 0 < head 0 1 2 * 4 5 6 7 8 9 * II ( clear but 0 in tito ) 

4 < head A 4 + < head - 0== < C k it < head at end of f i to) 

5 .1 F <bcb EA SE <head 0 4 + ( dot new (head value ) 

6 THEN < head ! ; ( update ■< h e a d value ) 

B s i ti il tb •: liSBCi .... f — ) 

9 foil r 0 1 •+■ 0" 

10 IE DUE' fbt r < -1 SWAP i 

1.1 Ei.SE DUP fbt r 0 1 < pt last fb to added but ) 

12 ;i OVER 1 ( set added fb to last, -1 ) 

13 fbt i ! i update fbt r ptr ) 

14 I HE. if fb ! i r 0 i+ 0- 

15 IP f b t r 0 fbh r 1 THEN ; 


k » » 

1 

I est mess 

age g 

ener at i on 

) HEr.X 




: ' (if S Lj '■ 

> 





3 

i BEGIN) 

< head 

0 < t a i 1 

(d 0 

- NOT ( any 

msq s? 

4 

IF 

dmsq 

< 

d i sp 1 

ay msq to CR 

:T ) 

?; i 


( 

place <he 

ad va 

1 ue for r in ) 

b U f ) 

6 


i n c h 

ead ( 

ad i 

< head ptr ) 


*7 


r in >f 

h ( r t n 

d sp 1 y 

msq buf to 

fb pOD 

B 

THE 

N 





(.y i 

< 1 1 e a d 0 < 

t a i 1 

*a - o- UN 

T I L. ) 

; ( any more 

:• msq s 

1 s 

h iii5qs ( n 

) 

0 DO ?ms 

q LOG 

P ; ( d i sp 1. c 

ty n ms 


X 2 

1. 3 


i 4 


1 > i M S B i ' :i. c. o m n i t e s t w o r d s 3 6 -- B 6 > Pi E. X 

:1 

2 : c l t < L i f „ ' ' I B S k tr* u f f e r 1 1 C R C R 

■3 BCN 0 DO <nhx I 4 *• + 0 . CR LOOP' ; 

4 : cl new . 11 newbuf = ” MAILBOX NEWBUP + 0 . CR 

5 u n oldbuf ~ " MAILBOX OLDBUF + 0 - CR 

6 . " old top =- " MAILBOX ol dtmp + 0 - CR 

7 . " Ethernet addr high byte - “ MAILBOX sah + W0 . CR 

8 .. ,! LOW BYTE ~ n MAILBOX sal + 0 . CR ; 

9 diujt CP: CR - " r un times - " mbx 0 . CR ; 

I C > : d r v n i s q C R . " r e e i v e rn a s s a q e ’ ‘ C R 

II r'vbnv (a OPFFF AND C0000 * tmpbut ! tmpbuf 0 - ; 
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ofeOOO HmSE If bPNS A HP 5/ I RW/'MbP U i / »...i .i. / 1 -*0 


l. 1 H c • fcJ L .i p l.« i \ i ■ l J L 


0 (. 1 RAKISH! 

1 rues 

s a q e g e n e r a t i a n 

> 

HEX 

.1. : be ad dr 

FFFF 

MAILBOX 

NEWBUF 

-i- 

(d 0 4 W ! 

it::! 

FFFF 

MAILBOX 

NEWBLJF 

+ 

© 2 4- W ! 

/i 

FFFF 

MAILBOX 

NEWBUF 

+ 

(d 4 •} if-l 1 ; 

4 

5 : insg 40 

g 

0 I.)0 

BBBB I 24 MAI LB 
LOOP ; 

333) X 

NEWBUF 4 © + 


7 : I ifiBq be ad dr msq MAILBOX NEW 39 UF i @ 13) UP DLFOS + 80 

3 SWAP’ C! DUP AKFOS 4 OC SWAP C ! DUP PNFOS h- 0 SWAP C! SNFOS + 
9 SWAP C i MAIL POX NEWBUF + @ OF F FF AND FOOOOO + MAI LBOX SBADOS 
1 0 + 1 ; 

11 : blifusg 1 MAILBOX SBFGOS + 1 ; 

12 ;; cien . " err os = " MAILBOX ERRGS 4- @ . CR . ,f flag - " 

13 MAILBOX FL..OS 4 (B . C R . n status " STS AD & „ CR 

14 „ " tr -a ns M tr ails © CR . ” recrv n recrv © . CR 

15 . SUB ~ !1 SUBAD @ . CR - 11 STS - " rtmp © . ; 


2 1 6 1 i. T S 1 


0 ( Debug test tools ) ( 2 ~~ 4 - 8 6 > HEX 

1 A A 55 CONS f AN I Sf .1 q 

2 : d 31 y st e OlFFFF' O DO LOOP' ; 

3 s . sts ( > 

4 . " "status 11 3- status W0 JO SPACE- S . " < status :::: 

5 W© . CR < sts 50 HEX DUMP DECIMAL. CR CR ;; 

6 

7 : -alive CR ( > < show it ENP 30 is running ) 

8 . “ NETWORK PROCESS COUNTER " CR 


9 

< a 3. :i v e 

id /•, ) 

DO 1 OOF 

* <3 a 31 

:i. ve © * H 


l u 
1 1 
1 2 

s ufiisq 

40 0 DO 

0 I 2 4- F 
LOOP ; 

SA 1 LB 

OX NEWBUF 

+ © + IS + w 1 eri| 

1 32. 

: i iiisg 

b c a d d r 

wrnsq 2 

M A I L 

BOX NEWBUF 

+ © AKF OS + C 1 

1 4 

1 pi 


MAI i . BOX 
MAILBOX 

NEWBUF 

bBADUS 

•4 © 

.t.. i 

OFFFF AND 

* 

F OOOOO 4 


.. I S T 



0 ( 
i H 

1 3) e Li« u q t e s l t. o o 1 s ) 

( 3- 3 9-86 > 

4 

srrrs-q ( a > 

0 DO tinsg 1 MAILBt 
LOOP ; 

IX SBFGOS + ! ( SEND MS 


dp insq 20 0 DO 1 

2* 23000 + W@ . LOOP ; 


8 

9 

1 O 
J 1 
12 
i 3 
1 4 
15 



(33) 


a 1 1 j s- 


118 




